[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110200: gnus-art.el (gnus-article-br
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110200: gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit |
Date: |
Tue, 25 Sep 2012 23:57:37 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110200: gnus-art.el (gnus-article-browse-delete-temp-files): Fix previous commit,
Katsumi Yamaoka <=