From 70219a78f539a29fc94c8a3591db58f1386099de Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 12 Aug 2013 01:03:16 +0000 Subject: [PATCH] mm-decode.el (mm-display-external): Try to delete temporary files by using a 1-min. timer --- lisp/ChangeLog | 5 +++++ lisp/mm-decode.el | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7123f7f97..006b29105 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-08-12 Katsumi Yamaoka + + * mm-decode.el (mm-display-external): Try to delete temporary files by + using a 1-min. timer. + 2013-08-09 Katsumi Yamaoka * mm-decode.el (mm-temp-files-to-be-deleted, mm-temp-files-cache-file): diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index f1e11a011..40c1d849f 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -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) -- 2.25.1