From: morioka <morioka>
Date: Sun, 23 May 1999 09:32:31 +0000 (+0000)
Subject: (mime-insert-header): Use `luna-class-find-functions'.
X-Git-Tag: chao-1_13_0~36
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ca3a41a89c6679186b16f2e1fa32a1858e4addec;p=elisp%2Fflim.git

(mime-insert-header): Use `luna-class-find-functions'.
---

diff --git a/mmcooked.el b/mmcooked.el
index 9b81406..6068ecc 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
@@ -63,7 +63,8 @@
 					&optional invisible-fields
 					visible-fields)
   (let (default-mime-charset)
-    (funcall (luna-class-find-function (luna-find-class 'mime-buffer-entity)
+    (funcall (car (luna-class-find-functions
+		   (luna-find-class 'mime-buffer-entity))
 				       'mime-insert-header)
 	     entity invisible-fields visible-fields)
     ))