From 76940a0bc2ae156eeaa911f501ac513f967ca4bb Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 15 Dec 1999 02:06:57 +0000 Subject: [PATCH] * mime-view.el (mime-preview-follow-current-entity): Fetch field of `mime-view-following-required-fields-list' from parent entity if it is not exist in current entity. --- mime-view.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/mime-view.el b/mime-view.el index 00b379f..b6a4d96 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1369,13 +1369,14 @@ It calls following-method selected from variable (progn (save-excursion (set-buffer the-buf) - (setq ret - (when mime-mother-buffer - (set-buffer mime-mother-buffer) - (mime-entity-fetch-field - (get-text-property (point) - 'mime-view-entity) - field-name)))) + (let ((entity (when mime-mother-buffer + (set-buffer mime-mother-buffer) + (get-text-property (point) + 'mime-view-entity)))) + (while (and entity + (null (setq ret (mime-entity-fetch-field + entity field-name)))) + (setq entity (mime-entity-parent entity))))) (if ret (insert (concat field-name ": " ret "\n")) ))) -- 1.7.10.4