diff options
| -rw-r--r-- | lisp/gnus/gnus-start.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 85aefe0f5f6..d726ee5aaba 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1271,15 +1271,15 @@ string name) to insert this group after." (consp entry)) (setq oldlevel (gnus-info-level (nth 1 entry))) (setq oldlevel (or oldlevel gnus-level-killed))) - (when (stringp previous) - (setq previous (gnus-group-entry previous))) ;; Group is already subscribed. (unless (and (>= oldlevel gnus-level-zombie) (gnus-group-entry group)) (unless (gnus-ephemeral-group-p group) (gnus-dribble-enter (format "(gnus-group-change-level %S %S %S %S %S)" - group level oldlevel previous fromkilled))) + group level oldlevel + (cadr (member previous gnus-group-list)) + fromkilled))) ;; Then we remove the newgroup from any old structures, if needed. ;; If the group was killed, we remove it from the killed or zombie @@ -1341,6 +1341,8 @@ string name) to insert this group after." ;; at the head of `gnus-newsrc-alist'. (push info (cdr gnus-newsrc-alist)) (puthash group (list num info) gnus-newsrc-hashtb) + (when (stringp previous) + (setq previous (gnus-group-entry previous))) (let* ((prev-idx (seq-position gnus-group-list (caadr previous))) (idx (if prev-idx (1+ prev-idx) |