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