mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Katsumi Yamaoka 2012-09-25 23:57:37 +00:00
parent 2eff54ba3d
commit 5c11868cad
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/gnus/gnus-art.el
View File

@ -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)