From 3d815c49056b5a24c240270e11f64cb2c26a3663 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 9 Jun 1998 12:07:37 +0000 Subject: [PATCH] (mime-entity-parent): New function; abolish `mime-raw-entity-parent'. (mime-view-entity-button-visible-p): Use `mime-entity-parent' instead of `mime-raw-entity-parent'. --- mime-view.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/mime-view.el b/mime-view.el index 3e977e7..ab76cb8 100644 --- a/mime-view.el +++ b/mime-view.el @@ -201,12 +201,16 @@ If optional argument MESSAGE-INFO is not specified, `mime-raw-message-info' is used." (reverse (mime-raw-point-to-entity-node-id point message-info))) -(defsubst mime-raw-entity-parent (entity &optional message-info) +(defsubst mime-entity-parent (entity &optional message-info) "Return mother entity of ENTITY. If optional argument MESSAGE-INFO is not specified, -`mime-raw-message-info' is used." - (mime-raw-find-entity-from-node-id (cdr (mime-entity-node-id entity)) - message-info)) +`mime-raw-message-info' in buffer of ENTITY is used." + (mime-raw-find-entity-from-node-id + (cdr (mime-entity-node-id entity)) + (or message-info + (save-excursion + (set-buffer (mime-entity-buffer entity)) + mime-raw-message-info)))) (defun mime-raw-flatten-message-info (&optional message-info) "Return list of entity in mime-raw-buffer. @@ -240,7 +244,7 @@ Please redefine this function if you want to change default setting." (and (not (eq media-subtype 'x-selection)) (or (not (eq media-subtype 'octet-stream)) (let ((mother-entity - (mime-raw-entity-parent entity message-info))) + (mime-entity-parent entity message-info))) (or (not (eq (mime-entity-media-type mother-entity) 'multipart)) (not (eq (mime-entity-media-subtype mother-entity) -- 1.7.10.4