[gnus git] branch master updated: n0-13-42-g0927343

       via  0927343ee10ff71f0a2c7afc742005fc51b6eee0 (commit)
      from  cb32c8a02be0ae7c454eca9c7ae4201589a64d75 (commit)


- Log -----------------------------------------------------------------
commit 0927343ee10ff71f0a2c7afc742005fc51b6eee0
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Feb 24 19:30:41 2011 -0800

    (gnus-get-unread-articles): Don't clobber the async retrieval by the no-group selection.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7d63e7..19f6302 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-25  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-start.el (gnus-get-unread-articles): Don't clobber the async
+	retrieval by the no-group selection.
+
 	* gnus-demon.el (gnus-demon-init): run-with-timer should be called with
 	numerical parameters.
 
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index dea6aab..d1ed23f 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1690,6 +1690,16 @@ If SCAN, request a scan of that group as well."
 			    method))
 	      (setcar elem method))
 	    (push (list method 'ok) methods)))))
+
+    ;; 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)))
+	(with-current-buffer nntp-server-buffer
+	  (gnus-read-active-file-1 method nil))))
+
     ;; Start early async retrieval of data.
     (dolist (elem type-cache)
       (destructuring-bind (method method-type infos dummy) elem
@@ -1712,15 +1722,6 @@ 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)))
-	(with-current-buffer nntp-server-buffer
-	  (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

-----------------------------------------------------------------------
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     |    3 +++
 lisp/gnus-start.el |   19 ++++++++++---------
 2 files changed, 13 insertions(+), 9 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