diff options
Diffstat (limited to 'lisp/gnus/message.el')
-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))) |