(insert-header): Renamed from `insert-decoded-header'.

diff --git a/mmcooked.el b/mmcooked.el
index e86ae24..6995469 100644 (file)
--- a/mmcooked.el
+++ b/mmcooked.el
@@ -58,9 +58,8 @@
                  filename)
     ))
 
-(mm-define-method insert-decoded-header ((entity cooked)
-                                        &optional invisible-fields
-                                        visible-fields)
+(mm-define-method insert-header ((entity cooked)
+                                &optional invisible-fields visible-fields)
   (let (default-mime-charset)
     (funcall (mime-find-function 'insert-decoded-header 'buffer)
             entity invisible-fields visible-fields)

diff --git a/mmgeneric.el b/mmgeneric.el
index 41df66b..634c80a 100644 (file)
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -144,9 +144,8 @@
          )
        t)))
 
-(mm-define-method insert-decoded-header ((entity generic)
-                                        &optional invisible-fields
-                                        visible-fields)
+(mm-define-method insert-header ((entity generic)
+                                &optional invisible-fields visible-fields)
   (save-restriction
     (narrow-to-region (point)(point))
     (let ((the-buf (current-buffer))