From ebaa5a3120b7290242fe5ba11d0093608cc0b632 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 2 Mar 1998 13:34:14 +0000
Subject: [PATCH] tm 4.8.1.

---
 Makefile        |    2 +-
 tiny-mime.el    |    5 ++++-
 tm-body.el      |   12 +++---------
 tm-mh-e-eng.ol  |    9 ++++++---
 tm-mh-e-eng.tex |   16 ++++++++++++----
 tm-mh-e-jp.ol   |    8 +++++---
 tm-mh-e-jp.tex  |    9 ++++++---
 7 files changed, 37 insertions(+), 24 deletions(-)

diff --git a/Makefile b/Makefile
index 19700ea..e9d55bf 100644
--- a/Makefile
+++ b/Makefile
@@ -24,7 +24,7 @@ GOMI	= *.aux *.log *.tex $(DVIFILES) *.ps $(UTILS)
 
 FILES	= *.ol Makefile *.el *.c methods $(TEXFILES)
 
-TARFILE = tm4.7.1.tar
+TARFILE = tm4.8.1.tar
 
 .SUFFIXES:	.ol .tex .dvi .ps
 
diff --git a/tiny-mime.el b/tiny-mime.el
index 7052237..6bf81df 100644
--- a/tiny-mime.el
+++ b/tiny-mime.el
@@ -9,7 +9,7 @@
 (provide 'tiny-mime)
 
 (defconst mime/RCS-ID
-  "$Id: tiny-mime.el,v 4.7 1994/08/03 05:40:35 morioka Exp $")
+  "$Id: tiny-mime.el,v 4.8 1994/08/11 14:43:54 morioka Exp $")
 
 (defconst mime/tiny-mime-version
   (and (string-match "[0-9][0-9.]*" mime/RCS-ID)
@@ -18,6 +18,9 @@
 
 (require 'tl-header)
 
+(if (not (fboundp 'member))
+    (require 'tl-18)
+  )
 
 ;;; @ MIME encoded-word definition
 ;;;
diff --git a/tm-body.el b/tm-body.el
index d23fd77..102b4e6 100644
--- a/tm-body.el
+++ b/tm-body.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-body.el,v 0.14 1994/08/03 05:31:33 morioka Exp $
+;;; $Id: tm-body.el,v 0.15 1994/08/05 01:49:35 morioka Exp $
 ;;;
 
 (provide 'tm-body)
@@ -50,18 +50,12 @@
     ("image/jpeg"   . "tm-image")
     ("image/tiff"   . "tm-image")
     ("image/x-tiff" . "tm-image")
+    ("image/x-xbm"  . "tm-image")
     ("image/x-pic"  . "tm-image")
     ("video/mpeg"   . "tm-mpeg")
     ("application/octet-stream" . "tm-file")
     ))
-;;; (setq mime/content-decoding-method-alist
-;;;   '(("audio/basic" . "tm-au")
-;;;	("image/gif"   . "tm-image")
-;;;	("image/jpeg"  . "tm-image")
-;;;	("image/x-pic" . "tm-image")
-;;;	("video/mpeg"  . "tm-mpeg")
-;;;	("application/octet-stream" . "tm-file")
-;;;	))
+
 (defvar mime/use-internal-decoder nil)
 ;;; (setq mime/use-internal-decoder t)
 
diff --git a/tm-mh-e-eng.ol b/tm-mh-e-eng.ol
index 5cc252d..67edfe5 100644
--- a/tm-mh-e-eng.ol
+++ b/tm-mh-e-eng.ol
@@ -1,7 +1,7 @@
 [[R
 \title{tm-mh-e manual (English Version)}
 \author{Morioka Tomohiko}
-\date{1994/7/25}
+\date{1994/8/20}
 \maketitle
 ]]R
 
@@ -33,13 +33,16 @@ load mh-e version 3.x.
 
 * .emacs
 
-  Please insert following list to .emacs.
+  Please use mime-setup.
+
+  If you do not want to use mime-setup, insert following list to .
+emacs.
 
 [[E
 ----------------------------------------------------------------------
 (if (< (string-to-int emacs-version) 19)
     (progn
-      (require 'tl-hook)
+      (require 'tl-18)
       (defvar buffer-undo-list nil)
       ))
 
diff --git a/tm-mh-e-eng.tex b/tm-mh-e-eng.tex
index e6ede60..dbb9d44 100644
--- a/tm-mh-e-eng.tex
+++ b/tm-mh-e-eng.tex
@@ -7,7 +7,7 @@
 \begin{document}
 \title{tm-mh-e manual (English Version)}
 \author{Morioka Tomohiko}
-\date{1994/7/25}
+\date{1994/8/20}
 \maketitle
 \medskip
 
@@ -51,15 +51,23 @@ load mh-e version 3.x.
 
 \section{.emacs}
 \medskip
-\par
-Please insert following list to .emacs.
+{\baselineskip=10pt
+\begin{verbatim}
+  Please use mime-setup.
+\end{verbatim}}
+\medskip
+{\baselineskip=10pt
+\begin{verbatim}
+  If you do not want to use mime-setup, insert following list to .
+emacs.
+\end{verbatim}}
 \medskip
 {\baselineskip=10pt
 \begin{verbatim}
 ----------------------------------------------------------------------
 (if (< (string-to-int emacs-version) 19)
     (progn
-      (require 'tl-hook)
+      (require 'tl-18)
       (defvar buffer-undo-list nil)
       ))
 
diff --git a/tm-mh-e-jp.ol b/tm-mh-e-jp.ol
index 2d1093f..1cc52c0 100644
--- a/tm-mh-e-jp.ol
+++ b/tm-mh-e-jp.ol
@@ -1,6 +1,6 @@
 $B!X(Btm-mh-e $B@bL@=q!Y(B
 by. $B<i2,(B $BCNI'(B
-1994$BG/(B7$B7n(B25$BF|(B
+1994$BG/(B8$B7n(B20$BF|(B
 
 * install
 
@@ -33,13 +33,15 @@ directory $B$K(B copy $B$7$^$9!#(B
 
 * $B@_Dj(B
 
-  .emacs $B$K0J2<$N$b$N$rF~$l$^$9!#(B
+  mime-setup $B$r;H$C$F2<$5$$!#(B
+
+  mime-setup $B$r;H$o$J$$>l9g$O(B .emacs $B$K0J2<$N$b$N$rF~$l$^$9!#(B
 
 [[E
 ----------------------------------------------------------------------
 (if (< (string-to-int emacs-version) 19)
     (progn
-      (require 'tl-hook)
+      (require 'tl-18)
       (defvar buffer-undo-list nil)
       ))
 
diff --git a/tm-mh-e-jp.tex b/tm-mh-e-jp.tex
index dbc5b00..34eb15f 100644
--- a/tm-mh-e-jp.tex
+++ b/tm-mh-e-jp.tex
@@ -11,7 +11,7 @@ tm-mh-e 
 ¼é²¬ ÃÎɧ\\
 }
 \date{
-1994ǯ7·î25Æü}
+1994ǯ8·î20Æü}
 \maketitle
 \medskip
 
@@ -57,14 +57,17 @@ tm-mh-e3.el 
 \section{ÀßÄê}
 \medskip
 \par
-.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£
+mime-setup ¤ò»È¤Ã¤Æ²¼¤µ¤¤¡£
+\medskip
+\par
+mime-setup ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£
 \medskip
 {\baselineskip=10pt
 \begin{verbatim}
 ----------------------------------------------------------------------
 (if (< (string-to-int emacs-version) 19)
     (progn
-      (require 'tl-hook)
+      (require 'tl-18)
       (defvar buffer-undo-list nil)
       ))
 
-- 
1.7.10.4