From f4ff691a24fae6381a0f5bca9c0391d460cec333 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 27 Sep 2010 20:58:05 +0200 Subject: [PATCH] Don't alter gnus-newsgroup-active. This makes ./ N' work after copying to the same group. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-sum.el | 6 +++--- lisp/nnimap.el | 3 ++- 3 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa3faf150..f52a13dea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2010-09-27 Lars Magne Ingebrigtsen + * gnus-sum.el (gnus-summary-move-article): Don't alter + gnus-newsgroup-active. This makes `/ N' work after copying to the same + group. + + * nnimap.el (nnimap-update-info): Don't destructively alter active. + * message.el (message-cite-prefix-regexp): Revert my last edit. * gnus-sum.el (gnus-summary-show-complete-article): Bind the server diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 02a098e73..19c2253ae 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -9806,8 +9806,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'." ;; Mark this article as read in this group. (push (cons to-article gnus-read-mark) gnus-newsgroup-reads) ;; Increase the active status of this group. - (setcdr (gnus-active to-group) to-article) - (setcdr gnus-newsgroup-active to-article)) + (setcdr (gnus-active to-group) to-article)) (while marks (when (eq (gnus-article-mark-to-type (cdar marks)) 'list) @@ -12637,7 +12636,8 @@ If ALL is a number, fetch this number of articles." (nnmail-fetched-sources (list t)) i new) (setq gnus-newsgroup-active - (gnus-activate-group gnus-newsgroup-name 'scan)) + (gnus-copy-sequence + (gnus-activate-group gnus-newsgroup-name 'scan))) (setq i (cdr gnus-newsgroup-active)) (while (> i old-high) (push i new) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index a78300a21..26cf29732 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -967,7 +967,8 @@ textual parts.") (t ;; No articles and no uidnext. nil))) - (setcdr (gnus-active group) (or high (1- uidnext)))) + (gnus-set-active (cons (car (gnus-active group)) + (or high (1- uidnext))))) (when (and (not high) uidnext) (setq high (1- uidnext))) -- 2.25.1