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).

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8ae5eb2f625bab23934c8bfeba6f00e716c4ebc9..e2f813339f7ee5b3354a85b03382837fe229445d 100644 (file)
--- 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)))