From e626aa1f01ab28dc34860eff33230ac04aba666d Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 3 Mar 2000 08:02:57 +0000 Subject: [PATCH] (initialize-instance): Don't setup `mime-message-structure'. --- mmbuffer.el | 2 -- mmdbuffer.el | 14 +++----------- 2 files changed, 3 insertions(+), 13 deletions(-) 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)) -- 1.7.10.4