* 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 (file)
--- 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"))
                      )))