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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ab776bfbb549ea847621d01e3deb1ed47cf9b269..6b7be997ea921959d20dca7229bb6cc8a1e8be60 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index f1e11a01194a808a5ea623e86a123cfde404951c..40c1d849f3c48428d88b18a7cc5c137f798f5f61 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/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)