From 5c11868cad512379b408e28d4880ba7589b3d5a0 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 25 Sep 2012 23:57:37 +0000 Subject: [PATCH] gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit --- lisp/gnus/gnus-art.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 435a10351c9..6c827e070cb 100644 --- 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) -- 2.39.2