[Emacs-diffs] /srv/bzr/emacs/trunk r103039: 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.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103039
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-01-31 02:19:13 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-group.el
  lisp/gnus/gnus-start.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-01-31 02:01:24 +0000
+++ b/lisp/gnus/ChangeLog       2011-01-31 02:19:13 +0000
@@ -1,5 +1,12 @@
 2011-01-31  Lars Ingebrigtsen  <address@hidden>
 
+       * 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.

=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el   2011-01-28 11:27:24 +0000
+++ b/lisp/gnus/gnus-group.el   2011-01-31 02:19:13 +0000
@@ -2467,7 +2467,7 @@
 `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)

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2011-01-25 04:08:28 +0000
+++ b/lisp/gnus/gnus-start.el   2011-01-31 02:19:13 +0000
@@ -1743,11 +1743,13 @@
     (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)