[gnus git] branch master updated: n0-17-66-g3b2dc8d =1= (gnus-group-mark-article-read): Keep `gnus-newsgroup-unselected' sorted.

Lars Magne Ingebrigtsen <[email protected]>
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  3b2dc8dae2bd66be3b7d0a720ea11ad890bde554 (commit)
      from  4c893e4b485044c1ac40d3dc65cc98161cacc11e (commit)


- Log -----------------------------------------------------------------
commit 3b2dc8dae2bd66be3b7d0a720ea11ad890bde554
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon May 30 23:24:45 2011 +0200

    (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 b606f09..b02d9c5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-05-30  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* 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 6c3a911..4c474b0 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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    4 ++++
 lisp/gnus-group.el |    2 +-
 2 files changed, 5 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.