(field-unify): Fixed.

diff --git a/mime-play.el b/mime-play.el
index 6e1b9a8..fcd6120 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;     Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.7 1997-02-28 02:19:54 tmorioka Exp $
+;; Version: $Id: mime-play.el,v 0.8 1997-02-28 02:33:20 tmorioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -138,10 +138,10 @@
       )))
 
 (defun field-unify (a b)
-  (let ((sym (intern (concat "field-unifier-for-" (intern (car a))))))
-    (if (not (fboundp sym))
+  (let ((sym (intern (concat "field-unifier-for-" (symbol-value (car a))))))
+    (or (fboundp sym)
        (setq sym (function field-unifier-for-default))
-      )
+       )
     (funcall sym a b)
     ))