[gnus git] branch no-gnus updated: m0-1-71-gc0ab8e3 =1= nntp.el (nntp-send-authinfo): Work for secure nntp entry in authinfo.

       via  c0ab8e31abf8f9bbe438a18e3a217199dfae02cc (commit)
      from  ee552b265a8fb8c4aa41e1c18a89efe94312521b (commit)


- Log -----------------------------------------------------------------
commit c0ab8e31abf8f9bbe438a18e3a217199dfae02cc
Author: Katsumi Yamaoka <[email protected]>
Date:   Thu Feb 23 23:10:39 2012 +0000

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2bd6712..5c0d74d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-23  Katsumi Yamaoka  <[email protected]>
+
+	* nntp.el (nntp-send-authinfo): Work for secure nntp entry in authinfo.
+
 2012-02-20  Lars Ingebrigtsen  <[email protected]>
 
 	* mm-decode.el (mm-shr): Remove "soft hyphens".
diff --git a/lisp/nntp.el b/lisp/nntp.el
index 98393a6..0f60fdd 100644
--- a/lisp/nntp.el
+++ b/lisp/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
+          (nth 0 (auth-source-search
+		  :max 1
                                      :host (list nntp-address
                                                  (nnoo-current-server 'nntp))
-                                     :port '("119" "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))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    4 ++++
 lisp/nntp.el   |   11 +++++++----
 2 files changed, 11 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, no-gnus has been updated


hooks/post-receive
-- 
Gnus Project