[gnus git] branch master updated: n0-17-470-g0c575b4 =1= * nntp.el (nntp-send-authinfo): Query `auth-source-search' with the logical server name in addition to the actual machine address.

       via  0c575b4a5749c880bb6c9c2b00a690577b4005c2 (commit)
      from  59a2d4c2ef7a5878857e2aa786c9ac03bbdfc6ff (commit)


- Log -----------------------------------------------------------------
commit 0c575b4a5749c880bb6c9c2b00a690577b4005c2
Author: Ted Zlatanov <[email protected]>
Date:   Tue Jan 10 13:53:19 2012 -0500

    * nntp.el (nntp-send-authinfo): Query `auth-source-search' with the logical server name in addition to the actual machine address.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3148fb2..e284cb8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-01-10  Teodor Zlatanov  <[email protected]>
 
+	* nntp.el (nntp-send-authinfo): Query `auth-source-search' with the
+	logical server name in addition to the actual machine address.
+
 	* auth-source.el (auth-source-user-and-password): Add convenience
 	wrapper to search by just host and optionally user.
 
diff --git a/lisp/nntp.el b/lisp/nntp.el
index db9d9e2..c740f61 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1249,8 +1249,8 @@ If SEND-IF-FORCE, only send authinfo to the server if the
 	 (alist (netrc-machine list nntp-address "nntp"))
          (auth-info
           (nth 0 (auth-source-search :max 1
-                                     ;; TODO: allow the virtual server name too
-                                     :host nntp-address
+                                     :host (list nntp-address
+                                                 (nnoo-current-server 'nntp))
                                      :port '("119" "nntp"))))
          (auth-user (plist-get auth-info :user))
          (auth-force (plist-get auth-info :force))

-----------------------------------------------------------------------
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 |    3 +++
 lisp/nntp.el   |    4 ++--
 2 files changed, 5 insertions(+), 2 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, master has been updated


hooks/post-receive
-- 
Gnus Project