From dff99050cfa74a2c7999002d25d2ce48b7a93749 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 14 Sep 2010 03:40:10 +0000 Subject: [PATCH] gnus-start.el (gnus-read-active-for-groups): Run gnus-activate-group for back end that doesn't support request-scan. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-start.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7dca7730828..ee9700c2421 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-09-14 Katsumi Yamaoka + + * 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 * gnus-start.el (gnus-read-active-file-1): If gnus-agent isn't set, diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 1c06a774203..f205ab6b59e 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1808,11 +1808,11 @@ If SCAN, request a scan of that group as well." (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. -- 2.39.5