[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110199: gnus-art.el (gnus-article-br
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110199: gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again a user about whether to delete files if once a user answered as n |
Date: |
Tue, 25 Sep 2012 23:39:44 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110199
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2012-09-25 23:39:44 +0000
message:
gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again a user
about whether to delete files if once a user answered as n
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-art.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2012-09-17 11:41:39 +0000
+++ b/lisp/gnus/ChangeLog 2012-09-25 23:39:44 +0000
@@ -1,3 +1,8 @@
+2012-09-25 Katsumi Yamaoka <address@hidden>
+
+ * gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again
+ a user about whether to delete temp files if once a user answered as n.
+
2012-09-17 Richard Stallman <address@hidden>
* message.el (message-in-body-p): Don't set mark or modify buffer.
=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el 2012-09-13 11:14:30 +0000
+++ b/lisp/gnus/gnus-art.el 2012-09-25 23:39:44 +0000
@@ -2759,12 +2759,15 @@
(progn
(or how (setq how gnus-article-browse-delete-temp))
(if (eq how 'ask)
- (let ((files (length gnus-article-browse-html-temp-list)))
- (gnus-y-or-n-p
- (if (= files 1)
- "Delete the temporary HTML file? "
- (format "Delete all %s temporary HTML files? "
- files))))
+ (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
+ (setq gnus-article-browse-html-temp-list nil)))
how)))
(dolist (file gnus-article-browse-html-temp-list)
(cond ((file-directory-p file)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110199: gnus-art.el (gnus-article-browse-delete-temp-files): Never ask again a user about whether to delete files if once a user answered as n,
Katsumi Yamaoka <=