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

Fix imap-starttls-open

Browse source 
* lisp/net/imap.el (imap-starttls-open): Log imap process
output.  Call imap-parse-greeting.  (Bug#22500)
This commit is contained in:
Andreas Schwab 2016-01-31 14:29:14 +01:00
parent cdecbedbf0
commit fc48106d0b
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/net/imap.el
View file

@ -747,14 +747,19 @@ sure of changing the value of `foo'."
:capability-command "1 CAPABILITY\r\n" :capability-command "1 CAPABILITY\r\n"
:always-query-capabilities t :always-query-capabilities t
:end-of-command "\r\n" :end-of-command "\r\n"
:success " OK " :success "^1 OK "
:starttls-function :starttls-function
(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 (if (and process done)
(memq (process-status process) '(open run))) (when process
process))) (imap-log buffer)
(when (memq (process-status process) '(open run))
(setq done process)
(with-current-buffer buffer
(goto-char (point-min))
(imap-parse-greeting))))
(message "imap: Connecting with STARTTLS...%s" (if done "done" "failed")) (message "imap: Connecting with STARTTLS...%s" (if done "done" "failed"))
done)) done))