From 3fc354ef2f03c28b8ef0433ad67e772c33a92787 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 20 Sep 1998 08:19:56 +0000 Subject: [PATCH] (mel-define-method-function): Don't override. --- mime-def.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4