[gnus git] branch master updated: n0-17-45-ge7d2a85 =1= * nntp.el (nntp-send-authinfo): Use the "force" token for NNTP authentication with auth-source.

       via  e7d2a85747a6d6c8079f2c544091fb94a312efb8 (commit)
      from  b01b9be76d30525eedfe7caf54cededcbbabe6cf (commit)


- Log -----------------------------------------------------------------
commit e7d2a85747a6d6c8079f2c544091fb94a312efb8
Author: Ted Zlatanov <[email protected]>
Date:   Wed May 18 05:29:27 2011 -0500

    * nntp.el (nntp-send-authinfo): Use the "force" token for NNTP authentication with auth-source.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8d641e..7d6dffa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-18  Teodor Zlatanov  <[email protected]>
+
+	* nntp.el (nntp-send-authinfo): Use the "force" token for NNTP
+	authentication with auth-source.
+
 2011-05-17  Glenn Morris  <[email protected]>
 
 	* gnus-group.el (gnus-import-other-newsrc-file):
diff --git a/lisp/nntp.el b/lisp/nntp.el
index cdd12ab..a8ffc65 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1227,17 +1227,20 @@ If SEND-IF-FORCE, only send authinfo to the server if the
   (require 'netrc)
   (let* ((list (netrc-parse nntp-authinfo-file))
 	 (alist (netrc-machine list nntp-address "nntp"))
-	 (force (or (netrc-get alist "force") nntp-authinfo-force))
          (auth-info
           (nth 0 (auth-source-search :max 1
                                      ;; TODO: allow the virtual server name too
                                      :host nntp-address
                                      :port '("119" "nntp"))))
          (auth-user (plist-get auth-info :user))
+         (auth-force (plist-get auth-info :force))
          (auth-passwd (plist-get auth-info :secret))
          (auth-passwd (if (functionp auth-passwd)
                           (funcall auth-passwd)
                         auth-passwd))
+	 (force (or (netrc-get alist "force")
+                    nntp-authinfo-force
+                    auth-force))
 	 (user (or
 		;; this is preferred to netrc-*
 		auth-user

-----------------------------------------------------------------------
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 |    5 +++++
 lisp/nntp.el   |    5 ++++-
 2 files changed, 9 insertions(+), 1 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