lisp/gnus/mm-decode.el (mm-display-external): Try to delete temporary files by using a 1-min. timer

This commit is contained in:
Katsumi Yamaoka 2013-08-12 01:03:33 +00:00
parent eaca0446e7
commit 6aac58fc77
2 changed files with 12 additions and 0 deletions

View file

@ -1,3 +1,8 @@
2013-08-12 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-decode.el (mm-display-external): Try to delete temporary files by
using a 1-min. timer.
2013-08-09 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-decode.el (mm-temp-files-to-be-deleted, mm-temp-files-cache-file):

View file

@ -1021,6 +1021,13 @@ external if displayed external."
(buffer buffer)
(command command)
(handle handle))
(run-at-time
60.0 nil
(lambda ()
(ignore-errors
(delete-file file))
(ignore-errors
(delete-directory (file-name-directory file)))))
(lambda (process state)
(when (eq (process-status process) 'exit)
(when (buffer-live-p outbuf)