- (when (and gnus-article-browse-html-temp
- (or (and (equal gnus-article-browse-delete-temp 'ask)
- (y-or-n-p "Delete temporary files from showing HTML-mails? "))
- (eq gnus-article-browse-delete-temp t)))
- (dolist (tmp-file gnus-article-browse-html-temp)
- (when (file-exists-p tmp-file)
- (delete-file tmp-file)))
- (setq gnus-article-browse-html-temp nil)))
+ (unless how
+ (setq how gnus-article-browse-delete-temp))
+ (when (and gnus-article-browse-html-temp-list how)
+ (when (and (eq how 'ask)
+ (y-or-n-p (format
+ "Delete all %s temporary HTML file(s)? "
+ (length gnus-article-browse-html-temp-list)))
+ (setq how t)))
+ (dolist (file gnus-article-browse-html-temp-list)
+ (when (and (file-exists-p file)
+ (or (eq how t)
+ ;; `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))))
+ gnus-article-browse-html-temp-list)