From: morioka <morioka>
Date: Sat, 27 Mar 1999 15:29:46 +0000 (+0000)
Subject: (mime-preview-follow-current-entity): Don't copy header if current
X-Git-Tag: semi-1_13_4~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b29d0b1da922b410c18a258e95bdd52c0555618d;p=elisp%2Fsemi.git

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