From: Lars Ingebrigtsen Date: Thu, 20 Aug 2020 15:03:04 +0000 (+0200) Subject: Allow specifying the TLS port in X-Message-SMTP-Method X-Git-Tag: emacs-28.0.90~6491 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44f75f0d9d1db0571b59759f1b2922ff8b099cdb;p=emacs.git 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 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)))