Fix return value of imap-starttls-open

* lisp/net/imap.el (imap-starttls-open): Fix return value.

Fix return value of imap-starttls-open
* lisp/net/imap.el (imap-starttls-open): Fix return value.
cdecbedb · Andreas Schwab · 20c7e34a · cdecbedb
Commit cdecbedb authored Jan 31, 2016 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/net/imap.el lisp/net/imap.el +3 -2

No files found.
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -752,8 +752,9 @@ sure of changing the value of `foo'."
                   (lambda (capabilities)
                     (when (string-match-p "STARTTLS" capabilities)
                       "1 STARTTLS\r\n"))))
-         (done (and process
-                    (memq (process-status process) '(open run)))))
+         (done (if (and process
+                        (memq (process-status process) '(open run)))
+                   process)))
    (message "imap: Connecting with STARTTLS...%s" (if done "done" "failed"))
    done))