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

nntp.el (nntp-send-authinfo): Work for secure nntp entry in authinfo.

Browse source
This commit is contained in:
Katsumi Yamaoka 2012-02-23 23:11:13 +00:00
parent b1890b0f10
commit 50fc698ea8
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2012-02-23 Katsumi Yamaoka <yamaoka@jpl.org>
* nntp.el (nntp-send-authinfo): Work for secure nntp entry in authinfo.
2012-02-20 Lars Ingebrigtsen <larsi@gnus.org>
* mm-decode.el (mm-shr): Remove "soft hyphens".

11
lisp/gnus/nntp.el
View file

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