From 4841c3fb9c0ea1b204ded0fe99e9062ecf6f7a5f Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 10 Feb 2000 10:43:35 +0000
Subject: [PATCH] (mime-preview-follow-current-entity): Use
 `mime-insert-header' to insert header; don't use
 `mime-entity-header-buffer',
 `mime-entity-header-start-point' and
 `mime-entity-header-end-point'.

---
 mime-view.el |   35 ++++++++---------------------------
 1 file changed, 8 insertions(+), 27 deletions(-)

diff --git a/mime-view.el b/mime-view.el
index 7541b43..83afc8c 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1480,34 +1480,16 @@ It calls following-method selected from variable
 		 entity))
 	      str)
 	  (while (and current-entity
-		      (progn
-			(setq str
-			      (with-current-buffer
-				  (mime-entity-header-buffer current-entity)
-				(save-restriction
-				  (narrow-to-region
-				   (mime-entity-header-start-point
-				    current-entity)
-				   (mime-entity-header-end-point
-				    current-entity))
-				  (std11-header-string-except
-				   (concat
-				    "^"
-				    (apply (function regexp-or) fields)
-				    ":") ""))))
-			(if (and (eq (mime-entity-media-type
-				      current-entity) 'message)
-				 (eq (mime-entity-media-subtype
-				      current-entity) 'rfc822))
-			    nil
-			  (if str
-			      (insert str)
-			    )
-			  t)))
+		      (if (and (eq (mime-entity-media-type
+				    current-entity) 'message)
+			       (eq (mime-entity-media-subtype
+				    current-entity) 'rfc822))
+			  nil
+			(mime-insert-header current-entity fields)
+			t))
 	    (setq fields (std11-collect-field-names)
 		  current-entity (mime-entity-parent current-entity))
-	    )
-	  )
+	    ))
 	(let ((rest mime-view-following-required-fields-list)
 	      field-name ret)
 	  (while rest
@@ -1529,7 +1511,6 @@ It calls following-method selected from variable
 		    )))
 	    (setq rest (cdr rest))
 	    ))
-	(mime-decode-header-in-buffer)
 	)
       (let ((f (cdr (assq mode mime-preview-following-method-alist))))
 	(if (functionp f)
-- 
1.7.10.4