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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2befabe..b2c73aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-25  Chong Yidong  <cyd@gnu.org>
 
        * password-cache.el (password-read-and-add): Use a declare form to mark

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7dcbd61..435a103 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/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)