Commit 5c11868c authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

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

parent 2eff54ba
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment