From: Katsumi Yamaoka Date: Mon, 12 Aug 2013 01:03:33 +0000 (+0000) Subject: lisp/gnus/mm-decode.el (mm-display-external): Try to delete temporary files by using... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1686^2~314 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6aac58fc77b9eced69ee8ab147a46c281b30c737;p=emacs.git lisp/gnus/mm-decode.el (mm-display-external): Try to delete temporary files by using a 1-min. timer --- 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 + + * 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/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)