(mime-preview-follow-current-entity): Don't copy header if current

entity is root.

diff --git a/mime-view.el b/mime-view.el
index 14bca3c..baefb57 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -1185,9 +1185,10 @@ It calls following-method selected from variable
                           (concat "^"
                                   (apply (function regexp-or) fields)
                                   ":") ""))))
-                    (if (and
-                         (eq (mime-entity-media-type ci) 'message)
-                         (eq (mime-entity-media-subtype ci) 'rfc822))
+                    (if (or (null entity-node-id)
+                            (and
+                             (eq (mime-entity-media-type ci) 'message)
+                             (eq (mime-entity-media-subtype ci) 'rfc822)))
                         nil
                       (if str
                           (insert str)