[Emacs-diffs] master 57442b6: Support port number in Gnus X-Message-SMTP-Method header

[Lars Ingebrigtsen]

branch: master
commit 57442b6812e9ec565efc39f722e84079dd71d8c0
Author: Alain Schneble <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Support port number in Gnus X-Message-SMTP-Method header
    
    * lisp/gnus/message.el (message-multi-smtp-send-mail): Try to parse
    service as port number.  If it succeeds, use parsed number, else use
    supplied service name as before (bug#24653).  (This only matters
    on some operating systems.)
---
 lisp/gnus/message.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index fdb296f..b979e1c 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4676,9 +4676,11 @@ that instead."
        (message-send-mail-with-sendmail))
        ((equal (car method) "smtp")
        (require 'smtpmail)
-       (let ((smtpmail-smtp-server (nth 1 method))
-             (smtpmail-smtp-service (nth 2 method))
-             (smtpmail-smtp-user (or (nth 3 method) smtpmail-smtp-user)))
+       (let* ((smtpmail-smtp-server (nth 1 method))
+              (service (nth 2 method))
+              (port (string-to-number service))
+              (smtpmail-smtp-service (if (> port 0) port service))
+              (smtpmail-smtp-user (or (nth 3 method) smtpmail-smtp-user)))
          (message-smtpmail-send-it)))
        (t
        (error "Unknown method %s" method))))))