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.
parent 4c298b2a
2014-11-23 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-via-smtp): Warn unless encrypted and
we're sending a password.
* net/nsm.el: New file that implements a Network Security Manager.
* net/network-stream.el (open-network-stream): Add a new
......
2014-11-23 Lars Magne Ingebrigtsen <larsi@gnus.org>
* pop3.el (pop3-open-server): Warn unless encrypted.
* nnimap.el (nnimap-open-connection-1): Warn unless encrypted.
2014-11-17 Albert Krewinkel <albert@zeitkraut.de>
* message.el (message-valid-fqdn-regexp): Add non-internaional new
......
......@@ -405,6 +405,7 @@ textual parts.")
"*nnimap*" (current-buffer) nnimap-address
(nnimap-map-port (car ports))
:type nnimap-stream
:warn-unless-encrypted t
:return-list t
:shell-command nnimap-shell-program
:capability-command "1 CAPABILITY\r\n"
......
......@@ -561,6 +561,7 @@ Returns the process associated with the connection."
'tls)
(t
(or pop3-stream-type 'network)))
:warn-unless-encrypted t
:capability-command "CAPA\r\n"
:end-of-command "^\\(-ERR\\|+OK\\).*\n"
:end-of-capability "^\\.\r?\n\\|^-ERR"
......
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment