[Emacs-diffs] emacs-25 cdecbed: Fix return value of imap-starttls-open

[Andreas Schwab]

branch: emacs-25
commit cdecbedbf0cc0872bc41e842f67a5af40109f29d
Author: Andreas Schwab <address@hidden>
Commit: Andreas Schwab <address@hidden>

    Fix return value of imap-starttls-open
    
    * lisp/net/imap.el (imap-starttls-open): Fix return value.
---
 lisp/net/imap.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

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