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

diff --git a/mmbuffer.el b/mmbuffer.el
index c0a458b..8080d03 100644 (file)
--- 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 (file)
--- 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))