diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2011-01-31 02:19:13 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-01-31 02:19:13 +0000 |
| commit | e389d61f82e7e659d0c6708237c817c640d24b9d (patch) | |
| tree | 798855765f0c1b2f9d87fe474410e88c70f0635c /lisp/gnus | |
| parent | 12e3ca0a34ec4848dd22eee4ec4c8a239dc6e09c (diff) | |
| download | emacs-e389d61f82e7e659d0c6708237c817c640d24b9d.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 | ||||
| -rw-r--r-- | 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 <larsi@gnus.org> + * 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) |