gnus-start.el (gnus-read-active-for-groups): Read the active files thoroughly for...

gnus-group.el (gnus-group-jump-to-group): Allow jumping to groups that Gnus doesn't know exists again.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f8a1577d712d73d1dc6b332e0bb9eab5e8b53516..1367787cb8db9e937c249ce1ae7d5f5f47085cad 100644 (file)
--- 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 66bf70bed05ce9e07cd489edb4f5962478686b26..30cd1275e7b30db264060b9911af36c3b3ab520c 100644 (file)
--- 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 e2dff45e5807ea0fc66e25d7cb8f2608761500b7..3879df3c4b6022d8fa3c079d215a2e7d7caab674 100644 (file)
--- 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)