(auth-source-netrc-saver): If the user says "don't ask again, save the choice via...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b95f36e..257b7e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * auth-source.el (auth-source-netrc-saver): If the user says "don't ask
+       again, save the choice via customize.
+
 2011-06-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-send-mail-function): Add `sendmail-query-once'.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 146db11..3bbad49 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1373,9 +1373,10 @@ Respects `auth-source-save-behavior'.  Uses
                       (help-mode))))
               (?n (setq add ""
                         done t))
-              (?N (setq add ""
-                        done t
-                        auth-source-save-behavior nil))
+              (?N
+              (setq add ""
+                    done t)
+              (customize-save-variable 'auth-source-save-behavior nil))
               (?e (setq add (read-string "Line to add: " add)))
               (t nil)))