From d3109e9c99e21fc86e282b55133ab6d130f33dde Mon Sep 17 00:00:00 2001 From: keiichi Date: Sun, 16 Jan 2000 08:31:07 +0000 Subject: [PATCH] (mime-preview-text/html): Don't get root entity from `mime-entity-buffer'. --- mime-w3.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/mime-w3.el b/mime-w3.el index 6ce9927..80d67ce 100644 --- a/mime-w3.el +++ b/mime-w3.el @@ -47,8 +47,10 @@ (defun mime-preview-text/html (entity situation) (setq mime-w3-message-structure - (with-current-buffer (mime-entity-buffer entity) - mime-message-structure)) + (let ((ent entity)) + (while (not (mime-root-entity-p ent)) + (setq ent (mime-entity-parent ent))) + ent)) (goto-char (point-max)) (let ((p (point))) (insert "\n") -- 1.7.10.4