# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283817387 0
# Node ID 8b5fccbe534c9b93c14cf29109761ee2af1e8494
# Parent  f81515cea5ce5c42804819913a93ed3eb2466289
gnus-start.el (gnus-read-active-for-groups): Do a `gnus-request-scan' for the methods that support -retrieve-groups, too.

diff -r f81515cea5ce -r 8b5fccbe534c lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Sep 06 23:54:07 2010 +0000
+++ b/lisp/gnus/ChangeLog	Mon Sep 06 23:56:27 2010 +0000
@@ -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 -r f81515cea5ce -r 8b5fccbe534c lisp/gnus/gnus-start.el
--- a/lisp/gnus/gnus-start.el	Mon Sep 06 23:54:07 2010 +0000
+++ b/lisp/gnus/gnus-start.el	Mon Sep 06 23:56:27 2010 +0000
@@ -1792,6 +1792,8 @@
   (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)))