Commit cdecbedb authored by Andreas Schwab's avatar Andreas Schwab

Fix return value of imap-starttls-open

* lisp/net/imap.el (imap-starttls-open): Fix return value.
parent 20c7e34a
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment