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.

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)