From 8b577ba1ead3c3c8f7bef8af317f2e1ce6377fb5 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 15 May 1998 01:38:26 +0000
Subject: [PATCH] (mime-mailcap-method-filename-alist): New variable.
 (mime-mailcap-method-sentinel): New function.
 (mime-activate-mailcap-method): Use
 'mime-mailcap-method-sentinel.

---
 mime-play.el |   28 +++++++++++++++++++++-------
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/mime-play.el b/mime-play.el
index 41009ab..ef682d6 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -197,6 +197,8 @@ specified, play as it.  Default MODE is \"play\"."
 ;;; @ external decoder
 ;;;
 
+(defvar mime-mailcap-method-filename-alist nil)
+
 (defun mime-activate-mailcap-method (start end situation)
   (save-excursion
     (save-restriction
@@ -211,16 +213,28 @@ specified, play as it.  Default MODE is \"play\"."
 				   end name
 				   (cdr (assq 'encoding situation)))
 	(message "External method is starting...")
-	(let ((command
-	       (mailcap-format-command
-		method
-		(cons (cons 'filename name) situation))))
-	  (start-process command mime-echo-buffer-name
-			 shell-file-name shell-command-switch command)
+	(let ((process
+	       (let ((command
+		      (mailcap-format-command
+		       method
+		       (cons (cons 'filename name) situation))))
+		 (start-process command mime-echo-buffer-name
+				shell-file-name shell-command-switch command)
+		 )))
+	  (set-alist 'mime-mailcap-method-filename-alist process name)
+	  (set-process-sentinel process 'mime-mailcap-method-sentinel)
 	  )
-	(mime-show-echo-buffer)
+	;;(mime-show-echo-buffer)
 	))))
 
+(defun mime-mailcap-method-sentinel (process event)
+  (let ((file (cdr (assq process mime-mailcap-method-filename-alist))))
+    (if (file-exists-p file)
+	(delete-file file)
+      ))
+  (remove-alist 'mime-mailcap-method-filename-alist process)
+  (message (format "%s %s" process event)))
+
 (defun mime-activate-external-method (beg end cal)
   (save-excursion
     (save-restriction
-- 
1.7.10.4