summaryrefslogtreecommitdiff
path: root/lisp/gnus/nnimap.el
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@linux-m68k.org>2016-02-07 13:29:16 +0100
committerAndreas Schwab <schwab@linux-m68k.org>2016-02-07 13:30:43 +0100
commit9dc77e37aa84c6df9b3ddb4609f3c09201b0580e (patch)
tree629528715489fe8153e07d8b3c0f3eb7bcc43578 /lisp/gnus/nnimap.el
parentd7933ff2acfb5666de08ad74146cd40d7bca7d08 (diff)
downloademacs-9dc77e37aa84c6df9b3ddb4609f3c09201b0580e.tar.gz
Fix gnus-group-get-new-news-this-group on group with closed server
* lisp/gnus/nnimap.el (nnimap-change-group): Lookup server method and pass to nnimap-open-server.
Diffstat (limited to 'lisp/gnus/nnimap.el')
-rw-r--r--lisp/gnus/nnimap.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index c285befc760..130658cd367 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1831,7 +1831,9 @@ Return the server's response to the SELECT or EXAMINE command."
(let ((open-result t))
(when (and server
(not (nnimap-server-opened server)))
- (setq open-result (nnimap-open-server server nil no-reconnect)))
+ (let ((method (gnus-server-to-method server)))
+ (setq open-result (nnimap-open-server (nth 1 method) (nthcdr 2 method)
+ no-reconnect))))
(cond
((not open-result)
nil)