procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Katsumi Yamaoka 2012-02-25 00:39:24 +00:00
parent 53a46cd091
commit b63e0a6866
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/nntp.el
View file

@ -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))