When looking for credentials, also use the nnimap-server-port.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e790eaa..c694baa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * nnimap.el (nnimap-find-wanted-parts-1): New function.
        (nnimap-fetch-partial-articles): New variable.
 
        * nnimap.el (nnimap-find-wanted-parts-1): New function.
        (nnimap-fetch-partial-articles): New variable.

+       (nnimap-open-connection): When looking for credentials, also use the
+       nnimap-server-port.

 
        * gnus.el (gnus-similar-server-opened): Refactor a bit and add
        comments.
 
        * gnus.el (gnus-similar-server-opened): Refactor a bit and add
        comments.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 8324d99..dbc16a2 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -268,7 +268,11 @@ textual parts.")
                           (if (eq nnimap-authenticator 'anonymous)
                               (list "anonymous"
                                     (message-make-address))
                           (if (eq nnimap-authenticator 'anonymous)
                               (list "anonymous"
                                     (message-make-address))

-                            (nnimap-credentials nnimap-address ports))))
+                            (nnimap-credentials
+                             nnimap-address
+                             (if nnimap-server-port
+                                 (cons (format "%s" nnimap-server-port) ports)
+                               ports)))))

                (setq nnimap-object nil)
              (setq login-result (nnimap-command "LOGIN %S %S"
                                                 (car credentials)
                (setq nnimap-object nil)
              (setq login-result (nnimap-command "LOGIN %S %S"
                                                 (car credentials)