aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <[email protected]>2010-09-06 23:56:27 +0000
committerKatsumi Yamaoka <[email protected]>2010-09-06 23:56:27 +0000
commit26f96aa0845611bd418e13cce1a2a719f6078387 (patch)
tree5d3936a542749f2e918f4bf9a42e997e4c5bf8cb
parent5edc8186ce140d04a5293c8d7886883b8f1c0798 (diff)
gnus-start.el (gnus-read-active-for-groups): Do a `gnus-request-scan' for the methods that support -retrieve-groups, too.
-rw-r--r--lisp/gnus/ChangeLog3
-rw-r--r--lisp/gnus/gnus-start.el2
2 files changed, 5 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 14ab0eb2bb..7040aa6ec6 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
2010-09-06 Lars Magne Ingebrigtsen <[email protected]>
+ * 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 <[email protected]>
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 3bdcb05dbe..a349475dbf 100644
--- 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)))