From: morioka <morioka>
Date: Tue, 30 Jun 1998 13:21:13 +0000 (+0000)
Subject: (mime-write-entity): Use implementation of mm-backend.
X-Git-Tag: flim-1_8_0~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7c5545f353f24d87b9b9d2aaa1679efbcc7e04e9;p=elisp%2Fflim.git

(mime-write-entity): Use implementation of mm-backend.
---

diff --git a/mime.el b/mime.el
index e6d0fb9..ba95a43 100644
--- a/mime.el
+++ b/mime.el
@@ -287,7 +287,7 @@ ENTITY is used."
 	  (setq invisible-fields (cdr invisible-fields))
 	  )
 	t)))
-		
+
 (defun mime-insert-decoded-header (entity
 				   &optional invisible-fields visible-fields
 				   code-conversion)
@@ -396,14 +396,7 @@ ENTITY is used."
 
 (defun mime-write-entity (entity filename)
   "Write ENTITY into FILENAME."
-  (save-excursion
-    (set-buffer (mime-entity-buffer entity))
-    (if (mime-entity-cooked-p entity)
-	(write-region (mime-entity-point-min entity)
-		      (mime-entity-point-max entity) filename)
-      (write-region-as-binary (mime-entity-point-min entity)
-			      (mime-entity-point-max entity) filename)
-      )))
+  (mime-entity-send entity 'write-entity filename))
 
 (defun mime-write-entity-body (entity filename)
   "Write body of ENTITY into FILENAME."