# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283729235 0
# Node ID bafb89eacad6fe91cf0ef389a7179a65a3b51ed1
# Parent  7e0143c802732315857badb4b80e38f1a1016b6c
nnimap.el (nnimap-open-connection): Look for the "imaps" entry in the .authinfo if we're using ssl connection.

diff -r 7e0143c80273 -r bafb89eacad6 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Sep 05 23:20:25 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sun Sep 05 23:27:15 2010 +0000
@@ -1,5 +1,8 @@
 2010-09-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* nnimap.el (nnimap-open-connection): Look for the "imaps" entry in the
+	.authinfo if we're using ssl connection.
+
 	* nnvirtual.el (nnvirtual-create-mapping): Use the active info we
 	already have if we're in a main Gnus `g' run.
 
diff -r 7e0143c80273 -r bafb89eacad6 lisp/gnus/nnimap.el
--- a/lisp/gnus/nnimap.el	Sun Sep 05 23:20:25 2010 +0000
+++ b/lisp/gnus/nnimap.el	Sun Sep 05 23:27:15 2010 +0000
@@ -832,9 +832,13 @@
     (let* ((list (progn (gnus-message 7 "Parsing authinfo file `%s'."
 				      nnimap-authinfo-file)
 			(netrc-parse nnimap-authinfo-file)))
- 	   (port (if nnimap-server-port
- 		     (int-to-string nnimap-server-port)
- 		   "imap"))
+	   (port (cond
+		  (nnimap-server-port
+		   (int-to-string nnimap-server-port))
+		  ((eq nnimap-stream 'ssl)
+		   "imaps")
+		  (t
+		   "imap")))
 	   (auth-info
 	    (auth-source-user-or-password '("login" "password") server port))
 	   (auth-user (nth 0 auth-info))