From 2e3297faa844f6c27b2a5e03f030331d4e9edea5 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 22 May 2003 08:50:12 +0000 Subject: [PATCH] * mime-play.el (mime-activate-mailcap-method): Undo the last change. --- ChangeLog | 4 ++++ mime-play.el | 15 +-------------- 2 files changed, 5 insertions(+), 14 deletions(-) diff --git a/ChangeLog b/ChangeLog index e8faf58..28ff439 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-05-22 Daiki Ueno + + * mime-play.el (mime-activate-mailcap-method): Undo the last change. + 2003-05-12 Yoichi NAKAYAMA * 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 -- 1.7.10.4