diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-02-23 23:11:13 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-02-23 23:11:13 +0000 |
| commit | 50fc698ea889b2439723497ddde594b19db209d5 (patch) | |
| tree | 8990dd580fa67d28c04120c55fa1e01349155fa5 /lisp/gnus/nntp.el | |
| parent | b1890b0f104f5f17ecf314c9b7f74ee482e00fd9 (diff) | |
| download | emacs-50fc698ea889b2439723497ddde594b19db209d5.tar.gz | |
nntp.el (nntp-send-authinfo): Work for secure nntp entry in authinfo.
Diffstat (limited to 'lisp/gnus/nntp.el')
| -rw-r--r-- | lisp/gnus/nntp.el | 11 |
1 files changed, 7 insertions, 4 deletions
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)) |