From: morioka <morioka>
Date: Sun, 8 Nov 1998 15:15:52 +0000 (+0000)
Subject: (mime-insert-header-from-buffer): Use
X-Git-Tag: chao-1_12_2~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=21057725aff139fe17000c85d9df27c9aceed698;p=elisp%2Fflim.git

(mime-insert-header-from-buffer): Use
`mime-find-field-presentation-method' and
`mime-find-field-decoder-internal'.
---

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