From: yamaoka Date: Sun, 16 Jan 2000 22:20:34 +0000 (+0000) Subject: Sync with semi-1_13. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Fsemi-pgpgpg;p=elisp%2Fsemi.git Sync with semi-1_13. --- diff --git a/ChangeLog b/ChangeLog index f5184b0..f767e0d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-01-16 Keiichi Suzuki + + * mime-w3.el (mime-preview-text/html): Don't get root entity from + `mime-entity-buffer'. + 2000-01-05 Katsumi Yamaoka * Makefile, README.en: Update for the new CVS server. 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")