From 02905bf9fe36aff59c8046765c1fbe33b0f793b3 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 22 Jun 2000 10:44:02 +0000 Subject: [PATCH] (wl-summary-burst-subr): Use `mime-entity-body' and `mime-entity-fetch-field'. --- wl/wl-mime.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/wl/wl-mime.el b/wl/wl-mime.el index df1ba13..f6def17 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <2000-04-20 17:43:19 teranisi> +;; Time-stamp: <00/06/22 19:36:21 teranisi> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -221,13 +221,10 @@ By setting following-method as yank-content." (message (format "Bursting...%s" (setq number (+ 1 number)))) (setq message-entity (car (mime-entity-children (car children)))) - (save-restriction - (narrow-to-region (mime-entity-point-min message-entity) - (mime-entity-point-max message-entity)) - (elmo-append-msg target - ;;(mime-entity-content (car children)))) - (buffer-substring (point-min) (point-max)) - (std11-field-body "Message-ID"))))) + (elmo-append-msg target + (mime-entity-body (car children)) + (mime-entity-fetch-field message-entity + "Message-ID")))) (setq children (cdr children))) number)) -- 1.7.10.4