From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 3 Feb 2011 15:36:03 +0000 (-0800)
Subject: Request active files from primary/secondary methods that have no groups (yet).
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=894b2ac5b356510bd62b23597abc20badb7b27e8

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27dd3a245..7ea94256a 100644
--- 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 d2f6c985c..933e7d06b 100644
--- 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