diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-20 17:03:04 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-20 17:03:04 +0200 |
commit | 44f75f0d9d1db0571b59759f1b2922ff8b099cdb (patch) | |
tree | 437725e4d6dcc6a48a142449a82d9f5c7960008e | |
parent | bd0523901bd022ae94503dcedda3fc879e6d0702 (diff) | |
download | emacs-44f75f0d9d1db0571b59759f1b2922ff8b099cdb.tar.gz |
Allow specifying the TLS port in X-Message-SMTP-Method
* lisp/gnus/message.el (message-multi-smtp-send-mail): If the user
has specified the TLS SMTP port, then force a TLS connection
(bug#38066).
-rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 8ae5eb2f625..e2f813339f7 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4870,6 +4870,11 @@ that instead." (let* ((smtpmail-smtp-server (nth 1 method)) (service (nth 2 method)) (port (string-to-number service)) + ;; If we're talking to the TLS SMTP port, then force a + ;; TLS connection. + (smtpmail-stream-type (if (= port 465) + 'tls + smtpmail-stream-type)) (smtpmail-smtp-service (if (> port 0) port service)) (smtpmail-smtp-user (or (nth 3 method) smtpmail-smtp-user))) (message-smtpmail-send-it))) |