gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again a user about...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 45f23a6d99c84710410b82505169c01028ab0ee5..983d09e2589934ddd9e654df89c4143e44fe51d8 100644 (file)
--- 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 7dcbd61316f1c61b29b0d15710a78bd4dfb727e2..435a10351c9bdd6b11adb4b59d5933a5c503d9bd 100644 (file)
--- 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)