Mercurial > emacs
changeset 110329:16a352829b29
gnus-start.el (gnus-read-active-for-groups): Run gnus-activate-group for back end that doesn't support request-scan.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 14 Sep 2010 03:40:10 +0000 |
| parents | 5c41eafe6021 |
| children | b68d97301050 ea52aa6ade3e |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-start.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Sep 14 02:08:02 2010 +0200 +++ b/lisp/gnus/ChangeLog Tue Sep 14 03:40:10 2010 +0000 @@ -1,3 +1,8 @@ +2010-09-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus-start.el (gnus-read-active-for-groups): Run gnus-activate-group + for back end that doesn't support request-scan. + 2010-09-10 Lars Magne Ingebrigtsen <larsi@gnus.org> * gnus-start.el (gnus-read-active-file-1): If gnus-agent isn't set,
--- a/lisp/gnus/gnus-start.el Tue Sep 14 02:08:02 2010 +0200 +++ b/lisp/gnus/gnus-start.el Tue Sep 14 03:40:10 2010 +0000 @@ -1808,11 +1808,11 @@ (dolist (info infos (nreverse groups)) (push (gnus-group-real-name (gnus-info-group info)) groups)) method))) - ((gnus-check-backend-function 'request-list (car method)) + ((gnus-check-backend-function 'request-scan (car method)) (gnus-read-active-file-1 method nil infos)) (t (dolist (info infos) - (gnus-activate-group (gnus-info-group info) nil nil method t)))))) + (gnus-activate-group (gnus-info-group info) nil nil method)))))) ;; Create a hash table out of the newsrc alist. The `car's of the ;; alist elements are used as keys.