From 7c5545f353f24d87b9b9d2aaa1679efbcc7e04e9 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 30 Jun 1998 13:21:13 +0000 Subject: [PATCH] (mime-write-entity): Use implementation of mm-backend. --- mime.el | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) 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." -- 1.7.10.4