From 21057725aff139fe17000c85d9df27c9aceed698 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sun, 8 Nov 1998 15:15:52 +0000
Subject: [PATCH] (mime-insert-header-from-buffer): Use
 `mime-find-field-presentation-method' and
 `mime-find-field-decoder-internal'.

---
 mmgeneric.el |   14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/mmgeneric.el b/mmgeneric.el
index 325c463..3a7fa7a 100644
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -148,8 +148,7 @@
 					      &optional invisible-fields
 					      visible-fields)
   (let ((the-buf (current-buffer))
-	(decoder-alist
-         (cdr (assq 'wide mime-field-decoder-cache)))
+	(mode-obj (mime-find-field-presentation-method 'wide))
 	field-decoder
 	f-b p f-e field-name len field field-body)
     (save-excursion
@@ -168,15 +167,8 @@
 	    (setq field (intern
 			 (capitalize (buffer-substring f-b (1- p))))
 		  field-body (buffer-substring p f-e)
-		  field-decoder 
-                    (cdr (or (assq field decoder-alist)
-                             (prog1
-                                 (funcall mime-update-field-decoder-cache
-					  field 'wide)
-                               (setq decoder-alist
-                                     (cdr (assq
-					   'wide
-					   mime-field-decoder-cache)))))))
+		  field-decoder (inline (mime-find-field-decoder-internal
+					 field mode-obj)))
 	    (with-current-buffer the-buf
 	      (insert field-name)
 	      (insert (if field-decoder
-- 
1.7.10.4