From: ueno <ueno>
Date: Wed, 15 Dec 1999 02:06:57 +0000 (+0000)
Subject: * mime-view.el (mime-preview-follow-current-entity): Fetch
X-Git-Tag: emiko-1_13_8-tomo-1~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=76940a0bc2ae156eeaa911f501ac513f967ca4bb;hp=7b5ed99d3c62aa9aed25e5b30dd0903f9d3c8a70;p=elisp%2Fsemi.git

* 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.
---

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"))
 		      )))