From ddbde94a8f9a4eb18b740c7140ca187a0fe63edc Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 30 Jun 1998 14:02:57 +0000 Subject: [PATCH] (mmcooked-write-entity-body): New function. --- mmcooked.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/mmcooked.el b/mmcooked.el index d8926ae..83fe265 100644 --- a/mmcooked.el +++ b/mmcooked.el @@ -57,6 +57,13 @@ (mime-entity-point-max entity) filename) )) +(defun mmcooked-write-entity-body (entity filename) + (save-excursion + (set-buffer (mime-entity-buffer entity)) + (write-region (mime-entity-body-start entity) + (mime-entity-body-end entity) filename) + )) + ;;; @ end ;;; -- 1.7.10.4