Fix return value of imap-starttls-open

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

diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index 5c5ed868172bad2de8e88ae640e32303ecd4c085..7e4cc72028f1de1a090076a7de1a6c44b33133dc 100644 (file)
--- 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))