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

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