From b63e0a6866303decd57e6792158347641e951f75 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sat, 25 Feb 2012 00:39:24 +0000 Subject: [PATCH] nntp.el (nntp-send-authinfo): Fix last change. --- lisp/gnus/nntp.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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)) -- 2.39.2