[Emacs-diffs] /srv/bzr/emacs/trunk r110199: 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

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 110199
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2012-09-25 23:39:44 +0000
message:
  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
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-09-17 11:41:39 +0000
+++ b/lisp/gnus/ChangeLog       2012-09-25 23:39:44 +0000
@@ -1,3 +1,8 @@
+2012-09-25  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * message.el (message-in-body-p): Don't set mark or modify buffer.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2012-09-13 11:14:30 +0000
+++ b/lisp/gnus/gnus-art.el     2012-09-25 23:39:44 +0000
@@ -2759,12 +2759,15 @@
             (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)