From b29d0b1da922b410c18a258e95bdd52c0555618d Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sat, 27 Mar 1999 15:29:46 +0000
Subject: [PATCH] (mime-preview-follow-current-entity): Don't copy header if
 current entity is root.

---
 mime-view.el |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mime-view.el b/mime-view.el
index 14bca3c..baefb57 100644
--- 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)
-- 
1.7.10.4