From 0eeaaf1498d8fe81f22f9a17704875ebb66db767 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 19 Sep 2010 19:35:17 +0200 Subject: [PATCH] When looking for credentials, also use the nnimap-server-port. --- lisp/ChangeLog | 2 ++ lisp/nnimap.el | 6 +++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e790eaae6..c694baa2d 100644 --- 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-open-connection): When looking for credentials, also use the + nnimap-server-port. * gnus.el (gnus-similar-server-opened): Refactor a bit and add comments. diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 8324d99e0..dbc16a2f3 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -268,7 +268,11 @@ textual parts.") (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) -- 2.25.1