(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 (file)
--- 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))