lisp/gnus/mm-decode.el (mm-display-external): Try to delete temporary files by using a 1-min. timer
This commit is contained in:
parent
eaca0446e7
commit
6aac58fc77
2 changed files with 12 additions and 0 deletions
|
@ -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):
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue