(nnimap-open-connection-1): Really respect nnimap-server-port.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06db77c..e75717b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * nnimap.el (nnimap-open-connection-1): Always upgrade to STARTTLS (for
        backwards compatibility).
+       (nnimap-open-connection-1): Really respect nnimap-server-port.
 
        * proto-stream.el (proto-stream-open-network): When doing opportunistic
        TLS upgrades we don't really care about the identity of the peer.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 1a33612..38f8004 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -348,7 +348,7 @@ textual parts.")
           (proto-stream-always-use-starttls t)
           connection-result login-result credentials)
       (when nnimap-server-port
-       (push (format "%s" nnimap-server-port) ports))
+       (setq ports (append ports (list (format "%s" nnimap-server-port)))))
       (destructuring-bind (stream greeting capabilities)
          (open-protocol-stream
           "*nnimap*" (current-buffer) nnimap-address (car (last ports))