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

5c11868c · Katsumi Yamaoka · 2eff54ba · 5c11868c
Commit 5c11868c authored Sep 25, 2012 by Katsumi Yamaoka
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 8 deletions

lisp/gnus/gnus-art.el lisp/gnus/gnus-art.el +6 -8

No files found.
--- 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)