From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Thu, 30 Jun 2011 00:24:06 +0000 (+0200)
Subject: (auth-source-netrc-saver): If the user says "don't ask again, save the choice via... 
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=17c65cf24575f42d02f89f807375148e9a7af365;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b95f36e39..257b7e049 100644
--- 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 146db1138..3bbad4962 100644
--- 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)))