aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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."
1831 (let ((open-result t)) 1831 (let ((open-result t))
1832 (when (and server 1832 (when (and server
1833 (not (nnimap-server-opened server))) 1833 (not (nnimap-server-opened server)))
1834 (setq open-result (nnimap-open-server server nil no-reconnect))) 1834 (let ((method (gnus-server-to-method server)))
1835 (setq open-result (nnimap-open-server (nth 1 method) (nthcdr 2 method)
1836 no-reconnect))))
1835 (cond 1837 (cond
1836 ((not open-result) 1838 ((not open-result)
1837 nil) 1839 nil)