From: morioka <morioka>
Date: Sun, 20 Sep 1998 08:19:56 +0000 (+0000)
Subject: (mel-define-method-function): Don't override.
X-Git-Tag: chao-1_9-2-199811302358~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3fc354ef2f03c28b8ef0433ad67e772c33a92787;p=elisp%2Fflim.git

(mel-define-method-function): Don't override.
---

diff --git a/mime-def.el b/mime-def.el
index 9e25ee1..0fdb2c9 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -385,10 +385,11 @@ message/rfc822, `mime-entity' structures of them are included in
 	 (args (cdr spec))
 	 (specializer (car (last args)))
 	 (class (nth 1 specializer)))
-    `(progn
+    `(let (sym)
        (mel-define-service ,name)
-       (fset (intern ,class ,(intern (format "%s-obarray" name)))
-	     (symbol-function ,function)))))
+       (setq sym (intern ,class ,(intern (format "%s-obarray" name))))
+       (or (fboundp sym)
+	   (fset sym (symbol-function ,function))))))
 
 (defmacro mel-define-function (function spec)
   (let* ((name (car spec))