From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Sat, 25 Feb 2012 00:39:24 +0000 (+0000)
Subject: nntp.el (nntp-send-authinfo): Fix last change.
X-Git-Tag: emacs-pretest-24.0.94~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b63e0a6866303decd57e6792158347641e951f75;p=emacs.git

nntp.el (nntp-send-authinfo): Fix last change.
---

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 0f60fdd756b..621aece8920 100644
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -1254,11 +1254,9 @@ If SEND-IF-FORCE, only send authinfo to the server if the
          (auth-info
           (nth 0 (auth-source-search
 		  :max 1
-		  :host (list nntp-address
-			      (nnoo-current-server 'nntp))
-		  :port (or (cdr (assoc (format "%s" nntp-port-number)
-					'(("563" . ("563" "nntps" "snews")))))
-			    '("119" "nntp")))))
+		  :host (list nntp-address (nnoo-current-server 'nntp))
+		  :port `("119" "nntp" ,(format "%s" nntp-port-number)
+			  "563" "nntps" "snews"))))
          (auth-user (plist-get auth-info :user))
          (auth-force (plist-get auth-info :force))
          (auth-passwd (plist-get auth-info :secret))