From eec6d31ef9897c939d68b2b0007da1cc8da1a623 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 30 Jun 1998 14:01:52 +0000 Subject: [PATCH] (mime-write-entity-body): Use implementation of mm-backend. --- mime.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) 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 -- 1.7.10.4