--- a/lisp/tm/tm-ew-d.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/tm/tm-ew-d.el	Mon Aug 13 09:19:45 2007 +0200
@@ -9,7 +9,7 @@
 ;; Original: 1992/07/20 ENAMI Tsugutomo's `mime.el'.
 ;;	Renamed: 1993/06/03 to tiny-mime.el.
 ;;	Renamed: 1995/10/03 from tiny-mime.el. (split off encoder)
-;; Version: $Revision: 1.3 $
+;; Version: $Revision: 1.4 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of tm (Tools for MIME).
@@ -42,7 +42,7 @@
 ;;;
 
 (defconst tm-ew-d/RCS-ID
-  "$Id: tm-ew-d.el,v 1.3 1997/01/30 02:22:48 steve Exp $")
+  "$Id: tm-ew-d.el,v 1.4 1997/03/16 03:05:46 steve Exp $")
 (defconst mime/eword-decoder-version (get-version-string tm-ew-d/RCS-ID))
 
 
@@ -199,10 +199,10 @@
             (condition-case err
                 (mime/decode-encoded-text charset encoding text must-unfold)
               (error
-               (and (tl:add-text-properties 0 (length word)
-                                            (and tm:warning-face
-                                                 (list 'face tm:warning-face))
-                                            word)
+               (and (add-text-properties 0 (length word)
+					 (and tm:warning-face
+					      (list 'face tm:warning-face))
+					 word)
                     word)))
             ))
       word))