From 4185087d4f16c3b4cf525300b8896a4db052000d Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 28 Jun 1998 23:05:15 +0000 Subject: [PATCH] (mime-write-entity): New function. --- mime.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/mime.el b/mime.el index dc73219..e6a6181 100644 --- a/mime.el +++ b/mime.el @@ -392,6 +392,17 @@ ENTITY is used." (mime-entity-body-end entity)) (mime-entity-encoding entity)))) +(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) + ))) + ;;; @ end ;;; -- 1.7.10.4