X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=fdf6b9255d74206f475d90407a890c88bc66aa42;hp=c2f09a83c07b8e6ac4fec05ec2b304c18729064c;hb=06e3d74faa6b1196f0a7b877acc1bb6b6c1563a8;hpb=8a242bbeef29a4735c186ad542ad3d755277cbcf

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index c2f09a83c..fdf6b9255 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1757,8 +1757,7 @@ If SCAN, request a scan of that group as well."
 	  (when (gnus-check-backend-function
 		 'retrieve-group-data-early (car method))
 	    (when (gnus-check-backend-function 'request-scan (car method))
-	      (dolist (info infos)
-		(gnus-request-scan (gnus-info-group info) method)))
+	      (gnus-request-scan nil method))
 	    (setcar (nthcdr 3 elem)
 		    (gnus-retrieve-group-data-early method infos))))))
 
@@ -1766,12 +1765,14 @@ If SCAN, request a scan of that group as well."
     (dolist (elem type-cache)
       (destructuring-bind (method method-type infos early-data) elem
 	(when (and method infos)
-	  ;; See if any of the groups from this method require updating.
-	  (gnus-read-active-for-groups method infos early-data)
-	  (dolist (info infos)
-	    (inline (gnus-get-unread-articles-in-group
-		     info (gnus-active (gnus-info-group info))
-		     t))))))
+	  (let ((updatep (gnus-check-backend-function
+			  'request-update-info (car method))))
+	    ;; See if any of the groups from this method require updating.
+	    (gnus-read-active-for-groups method infos early-data)
+	    (dolist (info infos)
+	      (inline (gnus-get-unread-articles-in-group
+		       info (gnus-active (gnus-info-group info))
+		       updatep)))))))
     (gnus-message 6 "Checking new news...done")))
 
 (defun gnus-method-rank (type method)
@@ -1806,8 +1807,7 @@ If SCAN, request a scan of that group as well."
       (gnus-agent-save-active method))
      ((gnus-check-backend-function 'retrieve-groups (car method))
       (when (gnus-check-backend-function 'request-scan (car method))
-	(dolist (info infos)
-	  (gnus-request-scan (gnus-info-group info) method)))
+	(gnus-request-scan nil method))
       (let (groups)
 	(gnus-read-active-file-2
 	 (dolist (info infos (nreverse groups))
@@ -2055,10 +2055,7 @@ If SCAN, request a scan of that group as well."
 			  (gnus-online method))
 		     (not gnus-agent))
 		 (gnus-check-backend-function 'request-scan (car method)))
-	(if infos
-	    (dolist (info infos)
-	      (gnus-request-scan (gnus-info-group info) method))
-	  (gnus-request-scan nil method)))
+	(gnus-request-scan nil method))
       (cond
        ((and (eq gnus-read-active-file 'some)
 	     (gnus-check-backend-function 'retrieve-groups (car method))