From: Lars Magne Ingebrigtsen Date: Mon, 30 May 2011 21:24:45 +0000 (+0200) Subject: (gnus-group-mark-article-read): Keep `gnus-newsgroup-unselected' sorted. X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=3b2dc8dae2bd66be3b7d0a720ea11ad890bde554 (gnus-group-mark-article-read): Keep `gnus-newsgroup-unselected' sorted. If this isn't done, then unselected articles may be marked as read. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b606f0915..b02d9c5fa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2011-05-30 Lars Magne Ingebrigtsen + * gnus-group.el (gnus-group-mark-article-read): It's possible that we + want to have `gnus-newsgroup-unselected' kept sorted. If this isn't + done, then unselected articles may be marked as read. + * pop3.el (pop3-open-server): Erase the buffer after the greeting, since not doing this seems to lead to a race condition in pop3-logon. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 6c3a91183..4c474b0aa 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -4631,7 +4631,7 @@ This command may read the active file." (push n gnus-newsgroup-unselected)) (setq n (1+ n))) (setq gnus-newsgroup-unselected - (nreverse gnus-newsgroup-unselected))))) + (sort gnus-newsgroup-unselected '<))))) (gnus-activate-group group) (gnus-group-make-articles-read group (list article)) (when (and (gnus-group-auto-expirable-p group)