Request active files from primary/secondary methods that have no groups (yet).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27dd3a2..7ea9425 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-start.el (gnus-read-active-for-groups): This function is never
        called with a nil `infos', so clean that up.
+       (gnus-get-unread-articles): Request active files from primary/secondary
+       methods that have no groups (yet).
 
 2011-02-03  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index d2f6c98..933e7d0 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1705,6 +1705,14 @@ If SCAN, request a scan of that group as well."
              (setcar (nthcdr 3 elem)
                      (gnus-retrieve-group-data-early method infos)))))))
 
+    ;; If we have primary/secondary select methods, but no groups from
+    ;; them, we still want to issue a retrieval request from them.
+    (dolist (method (cons gnus-select-method
+                         gnus-secondary-select-methods))
+      (when (and (not (assoc method type-cache))
+                (gnus-check-backend-function 'request-list (car method)))
+       (gnus-read-active-file-1 method nil)))
+
     ;; Do the rest of the retrieval.
     (dolist (elem type-cache)
       (destructuring-bind (method method-type infos early-data) elem