master 44f75f0: Allow specifying the TLS port in X-Message-SMTP-Method

[Lars Ingebrigtsen]

branch: master
commit 44f75f0d9d1db0571b59759f1b2922ff8b099cdb
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/gnus/message.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8ae5eb2..e2f8133 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)))