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

diff --git a/mime-def.el b/mime-def.el
index 9e25ee1..0fdb2c9 100644 (file)
--- 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))