From 17c65cf24575f42d02f89f807375148e9a7af365 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 30 Jun 2011 02:24:06 +0200 Subject: [PATCH] (auth-source-netrc-saver): If the user says "don't ask again, save the choice via customize. --- lisp/ChangeLog | 5 +++++ lisp/auth-source.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * 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 * 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))) -- 2.25.1