auth-source expects strings as port numbers, so make sure it gets that if nnimap...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c806913..7981083 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-02-21  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-open-connection-1): auth-source expects strings as
+       port numbers, so make sure it gets that if nnimap-server-port is
+       explicit.
+
 2011-02-21  Simon Josefsson  <simon@josefsson.org>
 
        * nnimap.el (nnimap-inbox): Doc fix.

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