diff options
| -rw-r--r-- | lisp/gnus/nnimap.el | 4 |
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) |