From: morioka <morioka>
Date: Tue, 30 Jun 1998 14:01:52 +0000 (+0000)
Subject: (mime-write-entity-body): Use implementation of mm-backend.
X-Git-Tag: flim-1_8_0~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eec6d31ef9897c939d68b2b0007da1cc8da1a623;p=elisp%2Fflim.git

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

diff --git a/mime.el b/mime.el
index ba95a43..cc3ef20 100644
--- a/mime.el
+++ b/mime.el
@@ -400,14 +400,7 @@ ENTITY is used."
 
 (defun mime-write-entity-body (entity filename)
   "Write body of ENTITY into FILENAME."
-  (save-excursion
-    (set-buffer (mime-entity-buffer entity))
-    (if (mime-entity-cooked-p entity)
-	(write-region (mime-entity-body-start entity)
-		      (mime-entity-body-end entity) filename)
-      (write-region-as-binary (mime-entity-body-start entity)
-			      (mime-entity-body-end entity) filename)
-      )))
+  (mime-entity-send entity 'write-entity-body filename))
 
 
 ;;; @ end