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

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113809
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-08-12 01:03:33 +0000
message:
  lisp/gnus/mm-decode.el (mm-display-external): Try to delete temporary files 
by using a 1-min. timer
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/mm-decode.el         
mmdecode.el-20091113204419-o5vbwnq5f7feedwu-1971

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-08-09 08:05:56 +0000
+++ b/lisp/gnus/ChangeLog       2013-08-12 01:03:33 +0000
@@ -1,3 +1,8 @@
+2013-08-12  Katsumi Yamaoka  <address@hidden>
+
+       * mm-decode.el (mm-display-external): Try to delete temporary files by
+       using a 1-min. timer.
+
 2013-08-09  Katsumi Yamaoka  <address@hidden>
 
        * mm-decode.el (mm-temp-files-to-be-deleted, mm-temp-files-cache-file):

=== modified file 'lisp/gnus/mm-decode.el'
--- a/lisp/gnus/mm-decode.el    2013-08-09 09:17:25 +0000
+++ b/lisp/gnus/mm-decode.el    2013-08-12 01:03:33 +0000
@@ -1021,6 +1021,13 @@
                                   (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)