+(defvar gnus-article-browse-html-temp nil
+ "Temporary files created by `gnus-article-browse-html-parts'")
+
+(defvar gnus-article-browse-delete-temp 'ask
+ "Defines how to deal with temporary files created by
+`gnus-article-browse-html-parts':
+Possible values: t: Delete
+ ask: Ask before delete
+ nil: Don't delete")
+
+(defun gnus-article-browse-delete-temp-files ()
+ "Delete temp-files created by `gnus-article-browse-html-parts'."
+ (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)))
+