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

2 files changed, 12 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ab776bfbb54..6b7be997ea9 100644
--- 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 f1e11a01194..40c1d849f3c 100644
--- 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)