From: Andreas Schwab <schwab@linux-m68k.org>
Date: Sun, 31 Jan 2016 12:34:03 +0000 (+0100)
Subject: Fix return value of imap-starttls-open
X-Git-Tag: emacs-25.0.91~140
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cdecbedbf0cc0872bc41e842f67a5af40109f29d;p=emacs.git

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 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))