diff --git a/lisp/nntp.el b/lisp/nntp.el index 66a6365..d87f96e 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1238,7 +1238,6 @@ 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 @@ -1249,6 +1248,9 @@ If SEND-IF-FORCE, only send authinfo to the server if the (auth-passwd (if (functionp auth-passwd) (funcall auth-passwd) auth-passwd)) + (force (or (netrc-get alist "force") + nntp-authinfo-force + (plist-get auth-info :force))) (user (or ;; this is preferred to netrc-* auth-user