Commit 6aac58fc authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

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

parent eaca0446
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> 2013-08-09 Katsumi Yamaoka <yamaoka@jpl.org>
   
* mm-decode.el (mm-temp-files-to-be-deleted, mm-temp-files-cache-file): * mm-decode.el (mm-temp-files-to-be-deleted, mm-temp-files-cache-file):
......
...@@ -1021,6 +1021,13 @@ external if displayed external." ...@@ -1021,6 +1021,13 @@ external if displayed external."
(buffer buffer) (buffer buffer)
(command command) (command command)
(handle handle)) (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) (lambda (process state)
(when (eq (process-status process) 'exit) (when (eq (process-status process) 'exit)
(when (buffer-live-p outbuf) (when (buffer-live-p outbuf)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment