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