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 435a10351c9bdd6b11adb4b59d5933a5c503d9bd..6c827e070cbf8911892885b58222f7dade0a9828 100644 (file)
--- 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)