Call `gnus-open-server' on each method before trying to scan them etc.
authorLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Sun, 19 Sep 2010 13:54:28 +0000 (15:54 +0200)
committerLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Sun, 19 Sep 2010 13:54:28 +0000 (15:54 +0200)
This ensures that all the backend parameters are set correctly.

lisp/ChangeLog
lisp/gnus-start.el

index 481244a..20bbe97 100644 (file)
@@ -1,5 +1,9 @@
 2010-09-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-start.el (gnus-get-unread-articles): Make sure that we call
+       `gnus-open-server' on each method before trying to scan them etc.  This
+       ensures that all the backend parameters are set correctly.
+
        * nnimap.el (nnimap-authenticator): New variable.
        (nnimap-open-connection): Allow anonymous login.
        (nnimap-transform-headers): The chars header is called Chars not
index d78a2f8..24102d0 100644 (file)
@@ -1759,14 +1759,15 @@ If SCAN, request a scan of that group as well."
     (dolist (elem type-cache)
       (destructuring-bind (method method-type infos dummy) elem
        (when (and method infos
-                  (not (gnus-method-denied-p method))
-                  (gnus-check-backend-function
-                   'retrieve-group-data-early (car method)))
-         (when (gnus-check-backend-function 'request-scan (car method))
-           (dolist (info infos)
-             (gnus-request-scan (gnus-info-group info) method)))
-         (setcar (nthcdr 3 elem)
-                 (gnus-retrieve-group-data-early method infos)))))
+                  (not (gnus-method-denied-p method)))
+         (gnus-open-server method)
+         (when (gnus-check-backend-function
+                'retrieve-group-data-early (car method))
+           (when (gnus-check-backend-function 'request-scan (car method))
+             (dolist (info infos)
+               (gnus-request-scan (gnus-info-group info) method)))
+           (setcar (nthcdr 3 elem)
+                   (gnus-retrieve-group-data-early method infos))))))
 
     ;; Do the rest of the retrieval.
     (dolist (elem type-cache)