X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mmcooked.el;h=f55a34a6bb9933fe11240dffa2454cc6517aac0f;hb=41e4fd4242e2a1f959c312e74854025cbb9d0f80;hp=9b814066b1e3715b14411308e9174cbbbfd20ada;hpb=8640ca51824bb79e07edda7db6ee40a9e4fa5b60;p=elisp%2Fflim.git

diff --git a/mmcooked.el b/mmcooked.el
index 9b81406..f55a34a 100644
--- a/mmcooked.el
+++ b/mmcooked.el
@@ -1,6 +1,6 @@
 ;;; mmcooked.el --- MIME entity implementation for binary buffer
 
-;; Copyright (C) 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1998,1999 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: MIME, multimedia, mail, news
@@ -59,12 +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 (luna-class-find-function (luna-find-class 'mime-buffer-entity)
-				       'mime-insert-header)
+    (funcall (car (luna-class-find-functions
+		   (luna-find-class 'mime-buffer-entity)
+		   'mime-insert-header))
 	     entity invisible-fields visible-fields)
     ))