From 26f96aa0845611bd418e13cce1a2a719f6078387 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 6 Sep 2010 23:56:27 +0000 Subject: [PATCH] gnus-start.el (gnus-read-active-for-groups): Do a `gnus-request-scan' for the methods that support -retrieve-groups, too. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-start.el | 2 ++ 2 files changed, 5 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 14ab0eb2bbb..7040aa6ec6c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-06 Lars Magne Ingebrigtsen + * 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 diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 3bdcb05dbe5..a349475dbf5 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))) -- 2.39.2