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

lisp/gnus/ChangeLog

+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):

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)