From: teranisi <teranisi>
Date: Thu, 22 Jun 2000 10:44:02 +0000 (+0000)
Subject: (wl-summary-burst-subr): Use `mime-entity-body' and `mime-entity-fetch-field'.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=02905bf9fe36aff59c8046765c1fbe33b0f793b3;p=elisp%2Fwanderlust.git

(wl-summary-burst-subr): Use `mime-entity-body' and `mime-entity-fetch-field'.
---

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 <teranisi@gohome.org>
 ;; 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))