Mercurial > emacs
changeset 47672:666b84b52b82
(smtpmail-via-smtp): Only negotiate starttls on
streams that were opened using starttls.
| author | Simon Josefsson <jas@extundo.com> |
|---|---|
| date | Sun, 29 Sep 2002 03:19:35 +0000 |
| parents | c527c3c4f0a3 |
| children | a3f7ece066e5 |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Sun Sep 29 01:51:48 2002 +0000 +++ b/lisp/mail/smtpmail.el Sun Sep 29 03:19:35 2002 +0000 @@ -613,7 +613,7 @@ (if (and do-starttls (smtpmail-find-credentials smtpmail-starttls-credentials host port) (member 'starttls supported-extensions) - (process-id process)) + (numberp (process-id process))) (progn (smtpmail-send-command process (format "STARTTLS")) (if (or (null (car (setq response-code (smtpmail-read-response process))))