Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5c11868c
Commit
5c11868c
authored
Sep 25, 2012
by
Katsumi Yamaoka
Browse files
gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit
parent
2eff54ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
8 deletions
+6
-8
lisp/gnus/gnus-art.el
lisp/gnus/gnus-art.el
+6
-8
No files found.
lisp/gnus/gnus-art.el
View file @
5c11868c
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment