From cdecbedbf0cc0872bc41e842f67a5af40109f29d Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 31 Jan 2016 13:34:03 +0100 Subject: [PATCH] Fix return value of imap-starttls-open * lisp/net/imap.el (imap-starttls-open): Fix return value. --- lisp/net/imap.el | 5 +++-- 1 file 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)) -- 2.39.5