From 5cad897e59653a2f249a4f499e50fde614ca2d98 Mon Sep 17 00:00:00 2001
From: tmorioka <tmorioka>
Date: Fri, 28 Feb 1997 02:33:20 +0000
Subject: [PATCH] (field-unify): Fixed.

---
 mime-play.el |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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)
     ))
 
-- 
1.7.10.4