From ca7687f901d8967ee5d1775513a29e76246d606e Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 19 Sep 2010 15:54:28 +0200 Subject: [PATCH] Call `gnus-open-server' on each method before trying to scan them etc. This ensures that all the backend parameters are set correctly. --- lisp/ChangeLog | 4 ++++ lisp/gnus-start.el | 17 +++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 481244acb..20bbe97e5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2010-09-19 Lars Magne Ingebrigtsen + * 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 diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index d78a2f8d9..24102d053 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -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) -- 2.25.1