From 896facdeec9f641f2ba52e81e47eb6745e739c46 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 28 Jun 1998 23:43:38 +0000 Subject: [PATCH] (mime-write-entity-body): New function. --- mime.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/mime.el b/mime.el index e6a6181..37eaf70 100644 --- a/mime.el +++ b/mime.el @@ -403,6 +403,17 @@ ENTITY is used." (mime-entity-point-max entity) filename) ))) +(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) + ))) + ;;; @ end ;;; -- 1.7.10.4