tm 6.76.1.

[elisp/tm.git] / tm-rich.el

diff --git a/tm-rich.el b/tm-rich.el
index d2295cd..7827746 100644 (file)
--- a/tm-rich.el
+++ b/tm-rich.el
@@ -1,11 +1,19 @@
 ;;;
-;;; $Id: tm-rich.el,v 6.7 1995/07/15 16:45:29 morioka Exp $
+;;; $Id: tm-rich.el,v 6.10 1995/08/05 00:55:37 morioka Exp $
 ;;;
 ;;; by MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 ;;;
 
 (require 'tm-view)
-(require 'richtext)
+
+(defvar tm-rich/richtext-module
+  (if (or (< emacs-major-version 19)
+         (and (= emacs-major-version 19)
+              (< emacs-minor-version 29))
+         )
+      'tinyrich
+    'richtext))
+(require tm-rich/richtext-module)
 
 
 ;;; @ content filters for tm-view
@@ -22,8 +30,7 @@
       (mime-viewer/default-code-convert-region beg (point-max)
                                               charset encoding)
       )
-    (richtext-to-enriched-region beg (point-max))
-    (enriched-decode beg (point-max))
+    (richtext-decode beg (point-max))
     ))
 
 (defun mime-viewer/filter-text/enriched (ctype params encoding)
@@ -53,4 +60,4 @@
 
 (run-hooks 'tm-rich-load-hook)
 
-(provide 'richtext)
+(provide 'tm-rich)