Mercurial > emacs
changeset 110254:8b5fccbe534c
gnus-start.el (gnus-read-active-for-groups): Do a `gnus-request-scan' for the methods that support -retrieve-groups, too.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 06 Sep 2010 23:56:27 +0000 |
| parents | f81515cea5ce |
| children | 91bdd0141c6e |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-start.el |
| diffstat | 2 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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)))