From: tomo <tomo>
Date: Fri, 3 Mar 2000 08:02:57 +0000 (+0000)
Subject: (initialize-instance): Don't setup `mime-message-structure'.
X-Git-Tag: chao-1_14_0-1~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e626aa1f01ab28dc34860eff33230ac04aba666d;p=elisp%2Fflim.git

(initialize-instance): Don't setup `mime-message-structure'.
---

diff --git a/mmbuffer.el b/mmbuffer.el
index c0a458b..8080d03 100644
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -45,8 +45,6 @@
        entity (mime-entity-location-internal entity)))
   (save-excursion
     (set-buffer (mime-buffer-entity-buffer-internal entity))
-    (if (mime-root-entity-p entity)
-	(setq mime-message-structure entity))
     (let ((header-start
 	   (or (mime-buffer-entity-header-start-internal entity)
 	       (mime-buffer-entity-set-header-start-internal
diff --git a/mmdbuffer.el b/mmdbuffer.el
index c205957..5a1ae20 100644
--- a/mmdbuffer.el
+++ b/mmdbuffer.el
@@ -36,25 +36,17 @@
 
 (luna-define-method initialize-instance :after ((entity mime-dual-entity)
 						&rest init-args)
-  (let (buf)
-    (setq buf (mime-dual-entity-header-buffer-internal entity))
+  (let ((buf (mime-dual-entity-header-buffer-internal entity)))
     (if buf
 	(with-current-buffer buf
-	  (if (mime-root-entity-p entity)
-	      (setq mime-message-structure entity))
 	  (or (mime-entity-content-type-internal entity)
 	      (mime-entity-set-content-type-internal
 	       entity
 	       (let ((str (std11-fetch-field "Content-Type")))
 		 (if str
 		     (mime-parse-Content-Type str)
-		   ))))))
-    (setq buf (mime-dual-entity-body-buffer-internal entity))
-    (if buf
-	(with-current-buffer buf
-	  (if (mime-root-entity-p entity)
-	      (setq mime-message-structure entity))))
-    ) entity)
+		   )))))))
+  entity)
 
 (luna-define-method mime-entity-name ((entity mime-dual-entity))
   (buffer-name (mime-dual-entity-header-buffer-internal entity))