From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 25 Sep 2012 23:57:37 +0000 (+0000)
Subject: gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit
X-Git-Tag: emacs-24.2.90~244^2~83
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c11868cad512379b408e28d4880ba7589b3d5a0;p=emacs.git

gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit
---

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 435a10351c9..6c827e070cb 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2759,14 +2759,12 @@ 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))
-			  (ans (gnus-y-or-n-p
-				(if (= files 1)
-				    "Delete the temporary HTML file? "
-				  (format
-				   "Delete all %s temporary HTML files? "
-				   files)))))
-		     (or ans
+		   (let ((files (length gnus-article-browse-html-temp-list)))
+		     (or (gnus-y-or-n-p
+			  (if (= files 1)
+			      "Delete the temporary HTML file? "
+			    (format "Delete all %s temporary HTML files? "
+				    files)))
 			 (setq gnus-article-browse-html-temp-list nil)))
 		 how)))
     (dolist (file gnus-article-browse-html-temp-list)