[Emacs-diffs] /srv/bzr/emacs/trunk r110200: gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 110200
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2012-09-25 23:57:37 +0000
message:
  gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit
modified:
  lisp/gnus/gnus-art.el

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