(gnus-get-unread-articles): Don't try to open failed servers twice.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53c3ab2..bc2ba24 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-start.el (gnus-get-unread-articles): Don't try to open failed
+       servers twice.
+
        * nnimap.el (nnimap-open-connection): Add more error reporting when
        nnimap fails early.
 

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 5aec3e7..66f591c 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1767,8 +1767,10 @@ If SCAN, request a scan of that group as well."
                   (not (gnus-method-denied-p method)))
          (unless (gnus-server-opened method)
            (gnus-open-server method))
-         (when (gnus-check-backend-function
-                'retrieve-group-data-early (car method))
+         (when (and
+                (gnus-server-opened method)
+                (gnus-check-backend-function
+                 'retrieve-group-data-early (car method)))
            (when (gnus-check-backend-function 'request-scan (car method))
              (gnus-request-scan nil method))
            (setcar (nthcdr 3 elem)