gnus-start.el (gnus-read-active-for-groups): Do a `gnus-request-scan' for the methods...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 14ab0eb2bbb4848e52a1d6dbc35708bf3ed631ad..7040aa6ec6cc891137459acdba0fa8927564fc99 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-start.el (gnus-read-active-for-groups): Do a `gnus-request-scan'
+       for the methods that support -retrieve-groups, too.
+
        * nnml.el (nnml-save-nov): Remove some debugging-related messages.
 
 2010-09-06  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 3bdcb05dbe53249a97d2ba8d2b2bb8f93ad4d441..a349475dbf5c64356f95fe085d2969916c684f47 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1792,6 +1792,8 @@ If SCAN, request a scan of that group as well."
   (with-current-buffer nntp-server-buffer
     (cond
      ((gnus-check-backend-function 'retrieve-groups (car method))
+      (when (gnus-check-backend-function 'request-scan (car method))
+       (gnus-request-scan nil method))
       (gnus-read-active-file-2
        (mapcar (lambda (info)
                 (gnus-group-real-name (gnus-info-group info)))