From: morioka <morioka>
Date: Tue, 16 Jun 1998 22:08:06 +0000 (+0000)
Subject: (mime-activate-mailcap-method): Fixed.
X-Git-Tag: remi-199811302358~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ca10334b0fe70aed690a0d91cb0a3d973fed4688;p=elisp%2Fsemi.git

(mime-activate-mailcap-method): Fixed.
---

diff --git a/mime-play.el b/mime-play.el
index 45ff40d..28ab231 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -206,8 +206,13 @@ specified, play as it.  Default MODE is \"play\"."
 	(narrow-to-region start end)
 	(goto-char start)
 	(let ((method (cdr (assoc 'method situation)))
-	      (name (expand-file-name (mime-raw-get-filename situation)
-				      mime-temp-directory)))
+	      (name (mime-raw-get-filename situation)))
+	  (setq name
+		(if name
+		    (expand-file-name name mime-temp-directory)
+		  (make-temp-name
+		   (expand-file-name "EMI" mime-temp-directory))
+		  ))
 	  (mime-write-decoded-region (mime-entity-body-start entity) end
 				     name (cdr (assq 'encoding situation)))
 	  (message "External method is starting...")