From 44f75f0d9d1db0571b59759f1b2922ff8b099cdb Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 20 Aug 2020 17:03:04 +0200 Subject: [PATCH] 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 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))) -- 2.39.2