gnus-start.el (gnus-read-active-file-1): Don't add method to gnus-have-read-active...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7fbd0a1..792ee33 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-22  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-start.el (gnus-read-active-file-1): Don't add method to
+       gnus-have-read-active-file if it's already been in.
+
 2010-10-22  Tom Tromey  <tromey@redhat.com>
 
        * gnus-group.el (gnus-group-unsubscribe-group): Fix args passed to

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 26da22e..dafcd64 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2090,7 +2090,7 @@ If SCAN, request a scan of that group as well."
          (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)