gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again a user about whether to delete files if once a user answered as n

2 files changed, 14 insertions, 6 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 45f23a6d99c..983d09e2589 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again
+        a user about whether to delete temp files if once a user answered as n.
+
 2012-09-17  Richard Stallman  <rms@gnu.org>
 
         * message.el (message-in-body-p): Don't set mark or modify buffer.
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 7dcbd61316f..435a10351c9 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2759,12 +2759,15 @@ summary buffer."
              (progn
                (or how (setq how gnus-article-browse-delete-temp))
                (if (eq how 'ask)
-                   (let ((files (length gnus-article-browse-html-temp-list)))
-                     (gnus-y-or-n-p
-                      (if (= files 1)
-                          "Delete the temporary HTML file? "
-                        (format "Delete all %s temporary HTML files? "
-                                files))))
+                   (let* ((files (length gnus-article-browse-html-temp-list))
+                          (ans (gnus-y-or-n-p
+                                (if (= files 1)
+                                    "Delete the temporary HTML file? "
+                                  (format
+                                   "Delete all %s temporary HTML files? "
+                                   files)))))
+                     (or ans
+                         (setq gnus-article-browse-html-temp-list nil)))
                  how)))
     (dolist (file gnus-article-browse-html-temp-list)
       (cond ((file-directory-p file)