fix for qop

[elisp/flim.git] / mmcooked.el

diff --git a/mmcooked.el b/mmcooked.el
index 6068ecc..f55a34a 100644 (file)
--- a/mmcooked.el
+++ b/mmcooked.el
@@ -59,13 +59,13 @@
                  filename)
     ))
 
-(luna-define-method mime-insert-header ((entity cooked)
+(luna-define-method mime-insert-header ((entity mime-cooked-entity)
                                        &optional invisible-fields
                                        visible-fields)
   (let (default-mime-charset)
     (funcall (car (luna-class-find-functions
-                  (luna-find-class 'mime-buffer-entity))
-                                      'mime-insert-header)
+                  (luna-find-class 'mime-buffer-entity)
+                  'mime-insert-header))
             entity invisible-fields visible-fields)
     ))