2006-03-06 Reiner Steib <Reiner.Steib@gmx.de>
+ * gnus-art.el (gnus-article-browse-delete-temp-files): Simplify
+ resetting gnus-article-browse-html-temp-list.
+
* gmm-utils.el (gmm-image-load-path-for-library): Sync with
mh-compat.el revision 1.9 in Emacs. Rename `gmm-image-load-path'.
Add example to docstring. Rename local variables. Move error
(const :tag "Ask" ask)
(const :tag "Ask for each file" file)))
+;; Cf. mm-postponed-undisplay-list / mm-destroy-postponed-undisplay-list.
+
(defun gnus-article-browse-delete-temp-files (&optional how)
"Delete temp-files created by `gnus-article-browse-html-parts'."
- (unless how
- (setq how gnus-article-browse-delete-temp))
- (when (and gnus-article-browse-html-temp-list how)
+ (when (and gnus-article-browse-html-temp-list
+ (or how
+ (setq how gnus-article-browse-delete-temp)))
(when (and (eq how 'ask)
(y-or-n-p (format
"Delete all %s temporary HTML file(s)? "
;; `how' is neither `nil', `ask' nor `t' (i.e. `file'):
(gnus-y-or-n-p
(format "Delete temporary HTML file `%s'? " file))))
- (delete-file file))
- ;; Also remove file from the list when not deleted or if file doesn't
- ;; exist anymore.
- (setq gnus-article-browse-html-temp-list
- (delete file gnus-article-browse-html-temp-list))))
+ (delete-file file)))
+ ;; Also remove file from the list when not deleted or if file doesn't
+ ;; exist anymore.
+ (setq gnus-article-browse-html-temp-list nil))
gnus-article-browse-html-temp-list)
(defun gnus-article-browse-html-parts (list)