From 50fc698ea889b2439723497ddde594b19db209d5 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 23 Feb 2012 23:11:13 +0000 Subject: nntp.el (nntp-send-authinfo): Work for secure nntp entry in authinfo. --- lisp/gnus/nntp.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'lisp/gnus/nntp.el') diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 98393a61764..0f60fdd756b 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1252,10 +1252,13 @@ If SEND-IF-FORCE, only send authinfo to the server if the (let* ((list (netrc-parse nntp-authinfo-file)) (alist (netrc-machine list nntp-address "nntp")) (auth-info - (nth 0 (auth-source-search :max 1 - :host (list nntp-address - (nnoo-current-server 'nntp)) - :port '("119" "nntp")))) + (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"))))) (auth-user (plist-get auth-info :user)) (auth-force (plist-get auth-info :force)) (auth-passwd (plist-get auth-info :secret)) -- cgit v1.2.1