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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7123f7f..006b291 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index f1e11a0..40c1d84 100644 (file)
--- 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)