(gnus-get-unread-articles): Scan each method only

once.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87a5a86..fe07849 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-20  Simon Josefsson  <jas@pdc.kth.se>
+
+        * gnus-start.el (gnus-get-unread-articles): Scan each method only
+       once.
+
 1999-12-01 17:37:18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-summary-enter-digest-group): Have the digest

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index ed5cd3a..7358bd6 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1498,7 +1498,7 @@ newsgroup."
                  gnus-activate-foreign-newsgroups)
                 (t 0))
           level))
-        info group active method retrievegroups)
+        scanned-methods info group active method retrievegroups)
     (gnus-message 5 "Checking new news...")
 
     (while newsrc
@@ -1542,7 +1542,10 @@ newsgroup."
                  (setcdr (assoc method retrievegroups)
                          (cons group (cdr (assoc method retrievegroups))))
                (push (list method group) retrievegroups))
-         (setq active (gnus-activate-group group 'scan))
+           (if (member method scanned-methods)
+               (setq active (gnus-activate-group group))
+             (setq active (gnus-activate-group group 'scan))
+             (push method scanned-methods))
            (inline (gnus-close-group group))))))
 
       ;; Get the number of unread articles in the group.