summaryrefslogtreecommitdiff
path: root/lisp/gnus/nnimap.el
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>2011-09-03 22:51:26 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2011-09-03 22:51:26 +0000
commitbc3200871917d5c54c8c4299a06bf8f8ba2ea02d (patch)
tree0c117ef685b0872cecd612195952831eb2f65507 /lisp/gnus/nnimap.el
parent0f2f6b6d0073d6941e4264e856478d43a3bd4820 (diff)
downloademacs-bc3200871917d5c54c8c4299a06bf8f8ba2ea02d.tar.gz
nnimap.el (nnimap-open-connection-1): Use the correct port number in the error message.
Diffstat (limited to 'lisp/gnus/nnimap.el')
-rw-r--r--lisp/gnus/nnimap.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 2dbc465f8c9..52c4b3c4290 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -350,7 +350,6 @@ textual parts.")
(with-current-buffer (nnimap-make-process-buffer buffer)
(let* ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)
- (port nil)
(ports
(cond
((memq nnimap-stream '(network plain starttls))
@@ -395,7 +394,7 @@ textual parts.")
(if (not stream)
(progn
(nnheader-report 'nnimap "Unable to contact %s:%s via %s"
- nnimap-address port nnimap-stream)
+ nnimap-address (car ports) nnimap-stream)
'no-connect)
(gnus-set-process-query-on-exit-flag stream nil)
(if (not (gnus-string-match-p "[*.] \\(OK\\|PREAUTH\\)" greeting))