[gnus git] branch master updated: n0-17-162-gfa8cd3f =1= * gnus-start.el (gnus-get-unread-articles): Don't connect to the secondary methods if started with `gnus-no-server'.

       via  fa8cd3f3ef09fa4bf3771512a2c520c4ef519827 (commit)
      from  2d46cf921c85bc1bc2f3861961e67cbaa4486494 (commit)


- Log -----------------------------------------------------------------
commit fa8cd3f3ef09fa4bf3771512a2c520c4ef519827
Author: Daiki Ueno <[email protected]>
Date:   Tue Jul 5 17:00:36 2011 +0200

    * gnus-start.el (gnus-get-unread-articles): Don't connect to the
    secondary methods if started with `gnus-no-server'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 772543e..17c2b66 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-05  Daiki Ueno  <[email protected]>
+
+	* gnus-start.el (gnus-get-unread-articles): Don't connect to the
+	secondary methods if started with `gnus-no-server'.
+
 2011-07-05  Juanma Barranquero  <[email protected]>
 
 	* message.el (message-return-action): Fix typo in docstring.
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index aa9af01..7c63d5e 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1043,7 +1043,7 @@ If LEVEL is non-nil, the news will be set up at level LEVEL."
 
     ;; Find the number of unread articles in each non-dead group.
     (let ((gnus-read-active-file (and (not level) gnus-read-active-file)))
-      (gnus-get-unread-articles level))))
+      (gnus-get-unread-articles level dont-connect))))
 
 (defun gnus-call-subscribe-functions (method group)
   "Call METHOD to subscribe GROUP.
@@ -1606,7 +1606,7 @@ If SCAN, request a scan of that group as well."
 
 ;; Go though `gnus-newsrc-alist' and compare with `gnus-active-hashtb'
 ;; and compute how many unread articles there are in each group.
-(defun gnus-get-unread-articles (&optional level)
+(defun gnus-get-unread-articles (&optional level dont-connect)
   (setq gnus-server-method-cache nil)
   (require 'gnus-agent)
   (let* ((newsrc (cdr gnus-newsrc-alist))
@@ -1702,12 +1702,13 @@ If SCAN, request a scan of that group as well."
 
     ;; If we have primary/secondary select methods, but no groups from
     ;; them, we still want to issue a retrieval request from them.
+    (unless dont-connect
     (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))))
+	    (gnus-read-active-file-1 method nil)))))
 
     ;; Start early async retrieval of data.
     (let ((done-methods nil)

-----------------------------------------------------------------------
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     |    5 +++++
 lisp/gnus-start.el |   17 +++++++++--------
 2 files changed, 14 insertions(+), 8 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