From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 25 Sep 2012 23:39:44 +0000 (+0000)
Subject: gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again a user about... 
X-Git-Tag: emacs-24.2.90~244^2~84
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2eff54ba3dc3bb4d9f99978777f8d5b1b1534f0d;p=emacs.git

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
---

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)