From: ueno <ueno>
Date: Thu, 22 May 2003 08:50:12 +0000 (+0000)
Subject: * mime-play.el (mime-activate-mailcap-method): Undo the last change.
X-Git-Tag: emiko-1_14-epg-branchpoint~36
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2e3297faa844f6c27b2a5e03f030331d4e9edea5;p=elisp%2Fsemi.git

* mime-play.el (mime-activate-mailcap-method): Undo the last change.
---

diff --git a/ChangeLog b/ChangeLog
index e8faf58..28ff439 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-22  Daiki Ueno <ueno@unixuser.org>
+
+	* mime-play.el (mime-activate-mailcap-method): Undo the last change.
+
 2003-05-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* mime-edit.el (turn-on-mime-edit): Protect 1st arg of `message'.
diff --git a/mime-play.el b/mime-play.el
index fe35b1f..543d702 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -139,20 +139,7 @@ specified, play as it.  Default MODE is \"play\"."
 	      (expand-file-name name temporary-file-directory)
 	    (make-temp-name
 	     (expand-file-name "EMI" temporary-file-directory))))
-    (if (and (not (featurep 'xemacs))
-	     (>= emacs-major-version 21))
-	;; For security reason, assert the 7th argument of
-	;; `write-region' to be 'excl to guarantee that the file is
-	;; created atomically.  Unfortunately, this feature is not yet
-	;; supported in Emacs 20 or XEmacs.
-	(let ((coding-system-for-write 'binary)
-	      jka-compr-compression-info-list jam-zcat-filename-list)
-	  (write-region (mime-entity-content entity) nil name
-			nil nil nil 'excl))
-      (if (file-exists-p name)
-	  (signal 'file-already-exists
-		  (list "Failed to create temporary file" name))
-	(mime-write-entity-content entity name)))
+    (mime-write-entity-content entity name)
     (message "External method is starting...")
     (let ((process
 	   (let ((command