[gnus git] branch master updated: =2= Request active files from primary/secondary methods that have no groups (yet). ; (gnus-read-active-for-groups): This function is never called with a nil `infos', so clean that up.

       via  894b2ac5b356510bd62b23597abc20badb7b27e8 (commit)
       via  fe4a9204a7a3799d63b30753ac705af8538a591e (commit)
      from  a314569677d5b1c7197c7bd335ddc685795be1e5 (commit)


- Log -----------------------------------------------------------------
commit 894b2ac5b356510bd62b23597abc20badb7b27e8
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Feb 3 07:36:03 2011 -0800

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27dd3a2..7ea9425 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  <[email protected]>
 
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index d2f6c98..933e7d0 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

commit fe4a9204a7a3799d63b30753ac705af8538a591e
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Feb 3 07:26:31 2011 -0800

    (gnus-read-active-for-groups): This function is never called with a nil `infos', so clean that up.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8731002..27dd3a2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-03  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-start.el (gnus-read-active-for-groups): This function is never
+	called with a nil `infos', so clean that up.
+
 2011-02-03  Julien Danjou  <[email protected]>
 
 	* message.el (message-setup-1): Always generate References first.
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 7517c87..d2f6c98 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1747,14 +1747,12 @@ If SCAN, request a scan of that group as well."
      ;; methods.
      ((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))
      ;; Most backends have -retrieve-groups.
-     ((and (gnus-check-backend-function 'retrieve-groups (car method))
-	   infos)
+     ((gnus-check-backend-function 'retrieve-groups (car method))
       (when (gnus-check-backend-function 'request-scan (car method))
 	(gnus-request-scan nil method))
       (let (groups)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    7 +++++++
 lisp/gnus-start.el |   12 +++++++++---
 2 files changed, 16 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project