From: tmorioka <tmorioka>
Date: Fri, 28 Feb 1997 02:33:20 +0000 (+0000)
Subject: (field-unify): Fixed.
X-Git-Tag: Hokutetsu-Ishikawa-new~236
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5cad897e59653a2f249a4f499e50fde614ca2d98;p=elisp%2Fsemi.git

(field-unify): Fixed.
---

diff --git a/mime-play.el b/mime-play.el
index 6e1b9a8..fcd6120 100644
--- 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)
     ))