From 6aac58fc77b9eced69ee8ab147a46c281b30c737 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 12 Aug 2013 01:03:33 +0000 Subject: [PATCH] lisp/gnus/mm-decode.el (mm-display-external): Try to delete temporary files by using a 1-min. timer --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mm-decode.el | 7 +++++++ 2 files changed, 12 insertions(+) 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) -- 2.39.2