From e389d61f82e7e659d0c6708237c817c640d24b9d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 31 Jan 2011 02:19:13 +0000 Subject: [PATCH] gnus-start.el (gnus-read-active-for-groups): Read the active files thoroughly for all backends that have no known groups. This should allow new nnml methods to retrieve mail. gnus-group.el (gnus-group-jump-to-group): Allow jumping to groups that Gnus doesn't know exists again. --- lisp/gnus/ChangeLog | 7 +++++++ lisp/gnus/gnus-group.el | 2 +- lisp/gnus/gnus-start.el | 4 +++- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f8a1577d712..1367787cb8d 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,12 @@ 2011-01-31 Lars Ingebrigtsen + * gnus-start.el (gnus-read-active-for-groups): Read the active files + thoroughly for all backends that have no known groups. This should + allow new nnml methods to retrieve mail. + + * gnus-group.el (gnus-group-jump-to-group): Allow jumping to groups + that Gnus doesn't know exists again. + * gnus-art.el (gnus-article-date-lapsed-new-header): Removed. (gnus-treat-date-ut): Ditto. (gnus-article-update-date-header): Renamed. diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 66bf70bed05..30cd1275e7b 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -2467,7 +2467,7 @@ If PROMPT (the prefix) is a number, use the prompt specified in `gnus-group-jump-to-group-prompt'." (interactive (list (gnus-group-completing-read - nil nil t + nil nil nil (if current-prefix-arg (cdr (assq current-prefix-arg gnus-group-jump-to-group-prompt)) (or (and (stringp gnus-group-jump-to-group-prompt) diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index e2dff45e580..3879df3c4b6 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1743,11 +1743,13 @@ If SCAN, request a scan of that group as well." (cond ((and (gnus-check-backend-function 'finish-retrieve-group-infos (car method)) + infos (or (not (gnus-agent-method-p method)) (gnus-online method))) (gnus-finish-retrieve-group-infos method infos early-data) (gnus-agent-save-active method)) - ((gnus-check-backend-function 'retrieve-groups (car method)) + ((and (gnus-check-backend-function 'retrieve-groups (car method)) + infos) (when (gnus-check-backend-function 'request-scan (car method)) (gnus-request-scan nil method)) (let (groups) -- 2.11.4.GIT