Fix return value of imap-starttls-open

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

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index 5c5ed868172..7e4cc72028f 100644
--- 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))