procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix return value of imap-starttls-open

Browse source 
* lisp/net/imap.el (imap-starttls-open): Fix return value.
This commit is contained in:
Andreas Schwab 2016-01-31 13:34:03 +01:00
parent 20c7e34a71
commit cdecbedbf0
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/net/imap.el
View file

@ -752,8 +752,9 @@ sure of changing the value of `foo'."
(lambda (capabilities) (lambda (capabilities)
(when (string-match-p "STARTTLS" capabilities) (when (string-match-p "STARTTLS" capabilities)
"1 STARTTLS\r\n")))) "1 STARTTLS\r\n"))))
(done (and process (done (if (and process
(memq (process-status process) '(open run))))) (memq (process-status process) '(open run)))
process)))
(message "imap: Connecting with STARTTLS...%s" (if done "done" "failed")) (message "imap: Connecting with STARTTLS...%s" (if done "done" "failed"))
done)) done))