(nntp-authinfo-force): New variable.

(nntp-send-authinfo): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7d71c2..cda8089 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nntp.el (nntp-authinfo-force): New variable.
+       (nntp-send-authinfo): Use it.
+
 2006-11-09  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * message.el (message-strip-subject-encoded-words): Allow _not_ to

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 531c916..340b96b 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -254,6 +254,7 @@ to insert Cancel-Lock headers.")
 (defvoo nntp-last-command nil)
 (defvoo nntp-authinfo-password nil)
 (defvoo nntp-authinfo-user nil)
+(defvoo nntp-authinfo-force nil)
 
 (defvar nntp-connection-list nil)
 
@@ -1116,7 +1117,7 @@ If SEND-IF-FORCE, only send authinfo to the server if the
 .authinfo file has the FORCE token."
   (let* ((list (netrc-parse nntp-authinfo-file))
         (alist (netrc-machine list nntp-address "nntp"))
-        (force (netrc-get alist "force"))
+        (force (or (netrc-get alist "force") nntp-authinfo-force))
         (user (or (netrc-get alist "login") nntp-authinfo-user))
         (passwd (netrc-get alist "password")))
     (when (or (not send-if-force)