summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>2014-11-23 15:00:48 +0100
committerLars Magne Ingebrigtsen <larsi@gnus.org>2014-11-23 15:00:48 +0100
commitc43b706ab3a699c107a91d1ab6f16014fff65b54 (patch)
tree18658871908e39e2c2cf66dad2538481941ade0a /lisp/mail
parent4c298b2a73bda5ad99c1a7c2428b0db91e950820 (diff)
downloademacs-c43b706ab3a699c107a91d1ab6f16014fff65b54.tar.gz
Make some network connections warn unless they are encrypted
* mail/smtpmail.el (smtpmail-via-smtp): Warn unless encrypted and we're sending a password. * pop3.el (pop3-open-server): Warn unless encrypted. * nnimap.el (nnimap-open-connection-1): Warn unless encrypted.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/smtpmail.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 3440741f573..e70499f222a 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -687,6 +687,7 @@ Returns an error if the server cannot be contacted."
"smtpmail" process-buffer host port
:type smtpmail-stream-type
:return-list t
+ :warn-unless-encrypted ask-for-password
:capability-command (format "EHLO %s\r\n" (smtpmail-fqdn))
:end-of-command "^[0-9]+ .*\r\n"
:success "^2.*\n"