Don't require tl-misc.

[elisp/semi.git] / mime-play.el

diff --git a/mime-play.el b/mime-play.el
index 07b3619..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.6 1997-02-28 02:17:40 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).
@@ -28,6 +28,7 @@
 ;;; Code:
 
 (require 'mime-view)
+(require 'alist)
 
   
 ;;; @ content decoder
@@ -137,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)
     ))