From: morioka <morioka>
Date: Mon, 29 Jun 1998 00:54:50 +0000 (+0000)
Subject: (mime-save-content): Use `mime-write-entity-content'.
X-Git-Tag: remi-1_8_1~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1f55268b5077de3b1399d33a0d65d23df2d53f73;p=elisp%2Fsemi.git

(mime-save-content): Use `mime-write-entity-content'.
---

diff --git a/mime-play.el b/mime-play.el
index d9ff14d..344b9da 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -313,7 +313,6 @@ window.")
 
 (defun mime-save-content (entity situation)
   (let* ((name (mime-entity-safe-filename entity))
-	 (encoding (or (mime-entity-encoding entity) "7bit"))
 	 (filename (if (and name (not (string-equal name "")))
 		       (expand-file-name name
 					 (save-window-excursion
@@ -332,9 +331,7 @@ window.")
     (if (file-exists-p filename)
 	(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
 	    (error "")))
-    (mime-write-decoded-region (mime-entity-body-start entity)
-			       (mime-entity-body-end entity)
-			       filename encoding)
+    (mime-write-entity-content entity filename)
     ))