diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2016-01-31 13:34:03 +0100 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2016-01-31 13:36:22 +0100 |
| commit | cdecbedbf0cc0872bc41e842f67a5af40109f29d (patch) | |
| tree | e62330e13df08d494467a267b80c0da1640127c8 /lisp/net/imap.el | |
| parent | 20c7e34a713eee988cbc261ec0bfb457668164ee (diff) | |
| download | emacs-cdecbedbf0cc0872bc41e842f67a5af40109f29d.tar.gz emacs-cdecbedbf0cc0872bc41e842f67a5af40109f29d.tar.bz2 emacs-cdecbedbf0cc0872bc41e842f67a5af40109f29d.zip | |
Fix return value of imap-starttls-open
* lisp/net/imap.el (imap-starttls-open): Fix return value.
Diffstat (limited to 'lisp/net/imap.el')
| -rw-r--r-- | lisp/net/imap.el | 5 |
1 files 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)) |