Mercurial > emacs

diff lisp/gnus/gnus-start.el @ 111083:9a8bf31cd307

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to gnus-group-completing-read. gnus-start.el (gnus-read-active-file-1): Don't add method to gnus-have-read-active-file if it's already been in.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 22 Oct 2010 01:39:13 +0000
parents 07053df95af6
children d66d04803828
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el	Thu Oct 21 22:12:01 2010 +0000
+++ b/lisp/gnus/gnus-start.el	Fri Oct 22 01:39:13 2010 +0000
@@ -2090,7 +2090,7 @@
 	  (gnus-message 5 "%s" mesg)
 	  (gnus-active-to-gnus-format method gnus-active-hashtb nil t)
 	  ;; We mark this active file as read.
-	  (push method gnus-have-read-active-file)
+	  (add-to-list 'gnus-have-read-active-file method)
 	  (gnus-message 5 "%sdone" mesg)))))))
 
 (defun gnus-read-active-file-2 (groups method)