From: tomo <tomo>
Date: Mon, 2 Mar 1998 13:37:41 +0000 (+0000)
Subject: This commit was manufactured by cvs2svn to create tag 'tm4_8_3'.
X-Git-Tag: tm4_8_3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f23061d20744595c54bf6dbd80343a844fefa425;p=elisp%2Ftm.git

This commit was manufactured by cvs2svn to create tag 'tm4_8_3'.
---

diff --git a/README-eng.tex b/README-eng.tex
deleted file mode 100644
index 996ebd7..0000000
--- a/README-eng.tex
+++ /dev/null
@@ -1,80 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-$<$MUA$>$ Manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-  tm-<MUA> is a MIME tools for GNU Emacs.
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{Files}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-README-jp.ol    README (Japanese)
-README-eng.ol   README (English)
-tiny-mime.ol    tiny-mime.el manual (Japanese)
-tm-body.ol      tm-body manual (Japanese)
-tm-gnus-jp.ol   tm-gnus manual (Japanese)
-tm-gnus-eng.ol  tm-gnus manual (English)
-tm-mh-e-jp.ol   tm-mh-e manual (Japanese)
-tm-mh-e-eng.ol  tm-mh-e manual (English)
-decode-b.c      Base64 decoder
-methods/*       methods
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-tiny-mime.el    Multilingual MIME header encoder/decoder
-tm-body.el      MIME body decoder
-tm-gnus.el      tm-<MUA> for GNUS
-tm-mh-e.el      tm-<MUA> for mh-e
-tm-mh-e3.el     tm-mh-e's module for mh-e 3.x.
-tm-misc.el      tm-<MUA> library
-tl-*.el         library modules
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-mime-setup.el   setup program
-signature.el    signature selector
-ol2.c           Emacs outline mode to plain text converter
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to install}
-\medskip
-{
-\renewcommand{\theenumi}{(\arabic{enumi})}
-\renewcommand{\labelenumi}{\theenumi}
-\begin{enumerate}
-\item Edit Makefile for your environment.
-\medskip
-\item Edit methods in `methods/' directory for your environment.
-\medskip
-\item Run `make all'.
-\medskip
-\item Run `make install'.
-\medskip
-\item Copy *.el to your emacs lisp directory.
-\medskip
-\medskip
-\end{enumerate}
-}
-
-\section{How to use}
-\medskip
-\par
-Please read tm-mh-e-eng.ol and tm-gnus-eng.ol.
-\end{document}
diff --git a/README-jp.tex b/README-jp.tex
deleted file mode 100644
index 257d669..0000000
--- a/README-jp.tex
+++ /dev/null
@@ -1,133 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-$<$MUA$>$ ÀâÌÀ½ñ}
-\author{
-\\
-}
-\date{
-}
-\maketitle
-\medskip
-
-\section{tm ¤È¤Ï}
-\medskip
-\par
-tm ¤Ï Emacs ¤Ë MIME µ¡Ç½¤òÉղᦶ¯²½¤¹¤ë¤¿¤á¤Î package ¤Ç¤¹¡£¤³¤Î
-package ¤Ï°Ê²¼¤Î¤â¤Î¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£
-\medskip
-{\list{}{\leftmargin=4ex}\item[]
-\begin{itemize}
-\item tiny-mime     MIME header encoder/decoder
-\item tm-body       MIME body player
-\item tm-gnus       MIME extender for GNUS
-\item tm-mh-e       MIME extender for mh-e
-\medskip
-\end{itemize}
-\endlist}
-\par
-¤Ç¤¹¡£
-\medskip
-\medskip
-
-\section{install ¤Î»ÅÊý}
-\medskip
-{
-\renewcommand{\theenumi}{(\arabic{enumi})}
-\renewcommand{\labelenumi}{\theenumi}
-\begin{enumerate}
-\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶­¤Ë¹ç¤ï¤»¤Æ½ñ¤­´¹¤¨¤ë¡£
-\medskip
-\item methods/ °Ê²¼¤Î method ¤ò¡¢tm-body ¤ÎÀâÌÀ½ñ¤ò¸«¤Æ¡¢¼«Ê¬¤Î´Ä¶­¤Ë¹ç
-¤¦¤è¤¦¤Ë½ñ¤­´¹¤¨¤ë¡£
-\medskip
-\item make all ¤¹¤ë¡£
-\medskip
-\item make install ¤¹¤ë¡£
-\medskip
-\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£
-\medskip
-\medskip
-\end{enumerate}
-}
-\par
-tm-mh-e, tm-gnus ¤ÎÀâÌÀ¤Ï¡¢tm-mh-e.ol, tm-gnus.ol ¤òÆɤó¤Ç²¼¤µ¤¤¡£
-plain2 ¤¬ install ¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¡¢make dvi ¤ò¹Ô¤Ê¤¦¤³¤È¤Ç dvi ¤ËÊÑ´¹¤Ç
-¤­¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{¥Ð¥°Êó¹ð¤Î»ÅÊý}
-\medskip
-\par
-tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML
-$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£
-\medskip
-\par
-tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ
-¤ò¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-tm-admin@chamonix.jaist.ac.jp
-\endlist}
-\medskip
-\par
-¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤­¤ì¤Ð¡¢¼«Á³¸À¸ì¤Ç½ñ¤¤
-¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+)
-\medskip
-\medskip
-
-\section{¤ª¤Þ¤±}
-\medskip
-\par
-mime-setup ¤È¤¤¤¦´Ê°×ÀßÄê tool ¤òÉÕ¤±¤Þ¤·¤¿¡£.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ
-¤ì¤ë¤È tm-$<$MUA$>$ ¤ÎÀßÄê¤È mime.el ¤ò»È¤Ã¤¿ encode ¤ÎÀßÄê¤ò¹Ô¤Ê¤Ã¤Æ¤¯¤ì
-¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(load "mime-setup")
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë
-¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime-setup-use-sc nil)
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£
-message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì
-¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq signature-file-alist
-      '(
-        (("Newsgroups" . "jokes")       . "~/.signature-jokes")
-        (("Newsgroups" . ("zxr" "nzr")) . "~/.signature-sun")
-        (("To" . ("ishimaru" "z-suzuki")) . "~/.signature-sun")
-        (("To" . "tea")                 . "~/.signature-jokes")
-        (("To" . ("sim" "oku" "takuo")) . "~/.signature-formal")
-        ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦
-¾ì¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£
-\end{document}
diff --git a/tm-body-eng.tex b/tm-body-eng.tex
deleted file mode 100644
index bb161bf..0000000
--- a/tm-body-eng.tex
+++ /dev/null
@@ -1,130 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-body manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-  Installing method is written in README-eng.ol. Please read it and
-install.
-\end{verbatim}}
-\medskip
-
-\subsection{tiny-mime.el}
-\medskip
-\par
-Please copy tiny-mime.el to your Emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-body}
-\medskip
-
-\subsubsection{$*$.el}
-\medskip
-\par
-Please copy tm-body.el, tl-list.el and tl-header.el to your Emacs
-lisp directory.
-\medskip
-
-\subsubsection{methods}
-\medskip
-\par
-Please edit methods for your environment, and copy to your
-executable directory.
-\medskip
-\medskip
-
-\subsubsection{decode-b.c}
-\medskip
-\par
-Please compile decode-b.c by gcc or another ANSI C.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-        % gcc -O decode-b.c -o decode-b
-\end{verbatim}}
-\medskip
-\par
-And please copy decode-b to your executable directory.
-\medskip
-\par
-However, if you have another decoder (e.g. mmencode in metamail),
-you can replace decode-b (e.g. You can replace `decode-b $<$' by
-`mmencode -b -u' in methods).
-\medskip
-\medskip
-
-\section{Customize}
-\medskip
-\par
-You can designate methods of Content-Types if you set variable
-`mime/content-decoding-method-alist' in .emacs.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(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")
-    ("text/x-latex" . "tm-latex")
-    ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-Each methods are shell scripts. Arguments of methods are written in
-following table.
-\medskip
-~\\
-\begin{center}
-\begin{tabular}{|c|l|}
-\hline
-argument & \multicolumn{1}{|c|}{                           value                                 }\\
-\hline\hline
-   \$1    & temporary file name of encoded content                           \\
-   \$2    & Content-Type (type/sub-type)                                     \\
-   \$3    & encoding \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
-   \$4    & decoding-mode \{play / extract / print\}                           \\
-   \$5    & original file name of content                                    \\
-\hline
-\end{tabular}\\
-\end{center}
-\medskip
-\par
-Each Content-Types are decoded by methods. Exceptionally,
-message/partial is decoded by tm-body.el.
-\medskip
-\medskip
-
-\section{Limitation or bug}
-\medskip
-\par
-In this version, message/external-body is not supported.
-\medskip
-\par
-Attached base64 decoder `decode-b.c' is not good program, so if it
-can run normally, please correct it. But It is easy because decode-b.c
-is too small, so please...(\verb+^+\_\verb+^+;
-\medskip
-\par
-Or you can use mmencode attached in metamail as decoder.
-\medskip
-\par
-In this package, there is no Quoted-Printable decoder, so please use
-mmencode.
-\end{document}
diff --git a/tm-body-jp.tex b/tm-body-jp.tex
deleted file mode 100644
index 0d5b212..0000000
--- a/tm-body-jp.tex
+++ /dev/null
@@ -1,132 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-body ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ7·î14Æü}
-\maketitle
-\medskip
-
-\section{install}
-\medskip
-\par
-README ¤Ë½¾¤Ã¤Æ install ¤ò¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\medskip
-
-\subsection{tiny-mime ¤Î install}
-\medskip
-\par
-tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë
-copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-body ¤Î install}
-\medskip
-
-\subsubsection{$*$.el ¤ò copy ¤¹¤ë}
-\medskip
-\par
-tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø
-Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsubsection{method ¤ò copy ¤¹¤ë}
-\medskip
-\par
-methods/ ¤ËÆþ¤Ã¤Æ¤¤¤ë¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë method ¤ò¡¢¼«Ê¬¤Î
-´Ä¶­¤Ë¹ç¤ï¤»¤Æ½¤Àµ¤·¡¢path ¤ÎÄ̤ä¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsubsection{decode-b.c ¤ò compile ¤¹¤ë}
-\medskip
-\par
-Base64 decoder ¤Ç¤¢¤ë decode-b.c ¤ò gcc ¤Ç compile ¤·¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-        % gcc -O decode-b.c -o decode-b
-\end{verbatim}}
-\medskip
-\par
-¤½¤·¤Æ¡¢½ÐÍè¾å¤¬¤Ã¤¿ decode-b ¤ò path ¤ÎÄ̤ä¿ directory ¤Ë copy ¤·
-¤Þ¤¹¡£
-\medskip
-\par
-⤷¡¢Â¾¤Î decoder¡ÊÎ㤨¤Ð¡¢metamail Éí°¤Î mmencode ¤Ê¤É¡Ë¤¬¤¢¤ì¤Ð¡¢
-method Ãæ¤Î decode-b ¤ò¤½¤Î decoder ¤ÇÃÖ¤­´¹¤¨¤Æ¤â¹½¤¤¤Þ¤»¤ó¡£Î㤨¤Ð¡¢
-decode-b $<$ ¤ò mmencode -b -u ¤ÇÃÖ¤­´¹¤¨¤Æ¤ß¤Æ²¼¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{¥«¥¹¥¿¥Þ¥¤¥º}
-\medskip
-\par
-.emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë method
-¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(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")
-    ("text/x-latex" . "tm-latex")
-    ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-³Æ method ¤Ï shell script ¤Ç½ñ¤­¤Þ¤¹¡£tm-body.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï
-°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-\medskip
-~\\
-\begin{center}
-\begin{tabular}{|c|l|}
-\hline
-°ú¿ô & \multicolumn{1}{|c|}{                           ÃÍ                                    }\\
-\hline\hline
- \$1  & decode Á°¤Î file ̾                                              \\
- \$2  & Content-Type (type/sub-type)                                     \\
- \$3  & encoding \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\
- \$4  & decoding-mode \{play / extract / print\}                           \\
- \$5  & file ̾                                                          \\
-\hline
-\end{tabular}\\
-\end{center}
-\medskip
-\par
-¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-body.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{À©¸Â}
-\medskip
-\par
-message/external-body ¤Ë´Ø¤·¤Æ¤Ï¸½ºß¤Î¤È¤³¤í¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤»¤ó¡£
-\medskip
-\par
-Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤«
-¤Ê¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+;
-\medskip
-\par
-¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£
-\medskip
-\par
-¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã
-¤Æ²¼¤µ¤¤¡£
-\end{document}
diff --git a/tm-body.el b/tm-body.el
deleted file mode 100644
index ad1d61d..0000000
--- a/tm-body.el
+++ /dev/null
@@ -1,326 +0,0 @@
-;;;
-;;; $Id: tm-body.el,v 0.16 1994/08/20 12:38:07 morioka Exp $
-;;;
-
-(provide 'tm-body)
-
-(require 'tl-list)
-(require 'tl-header)
-(require 'tiny-mime)
-
-(defun replace-as-filename (str)
-  (let ((dest "")
-	(i 0)(len (length str))
-	chr)
-    (while (< i len)
-      (setq chr (elt str i))
-      (if (or (and (<= ?+ chr)(<= chr ?.))
-	      (and (<= ?0 chr)(<= chr ?:))
-	      (= chr ?=)
-	      (and (<= ?@ chr)(<= chr ?\[))
-	      (and (<= ?\] chr)(<= chr ?_))
-	      (and (<= ?a chr)(<= chr ?{))
-	      (and (<= ?} chr)(<= chr ?~))
-	      )
-	  (setq dest (concat dest
-			     (char-to-string chr)))
-	)
-      (setq i (+ i 1))
-      )
-    dest))
-
-(defconst mime/tspecials "\000-\040()<>@,;:\\\"/[\093?.=")
-(defconst mime/token-regexp
-  (concat "[^" mime/tspecials "]*"))
-(defconst mime/content-type-subtype-regexp
-  (concat mime/token-regexp "/" mime/token-regexp))
-(defconst mime/content-parameter-value-regexp
-  (concat "\\("
-	  message/quoted-string-regexp
-	  "\\|[^; \t\n]\\)*"))
-
-(defconst mime/output-buffer-name "*MIME-out*")
-(defconst mime/decoding-buffer-name "*MIME-decoding*")
-
-(defvar mime/content-decoding-method-alist
-  '(("text/plain"   . "tm-plain")
-    ("text/x-latex" . "tm-latex")
-    ("audio/basic"  . "tm-au")
-    ("image/gif"    . "tm-image")
-    ("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")
-    ))
-
-(defvar mime/use-internal-decoder nil)
-;;; (setq mime/use-internal-decoder t)
-
-(defun mime/decode-body ()
-  (interactive)
-  (if (get-buffer mime/output-buffer-name)
-      (kill-buffer mime/output-buffer-name))
-  (save-excursion
-    (save-restriction
-      (goto-char (point-min))
-      (let ((ctype (mime/Content-Type "^$"))
-	    (encoding (mime/Content-Transfer-Encoding "^$" "7bit"))
-	    )
-	(if ctype 
-	    (cond ((equal (car ctype) "multipart/mixed")
-		   (mime/decode-multipart/mixed ctype encoding)
-		   )
-		  ((equal (car ctype) "message/partial")
-		   (mime/decode-message/partial ctype encoding)
-		   )
-		  (t
-		   (mime/decode-content nil (car ctype) encoding
-					(mime/get-name ctype))
-		   ))
-	  )))))
-
-(defun mime/decode-multipart/mixed (ctype default-encoding)
-  (let ((boundary (cdr (assoc "boundary" (cdr ctype))))
-	encoding b)
-    (if (eq (elt boundary 0) ?\")
-	(setq boundary
-	      (substring boundary 1 (- (length boundary) 1))
-	      ))
-    (setq boundary (concat "^--" (regexp-quote boundary) "\\(--\\)?$"))
-    (while (re-search-forward boundary nil t)
-      (goto-char (point-min))
-      (setq b (+ (match-end 0) 1))
-      (goto-char b)
-      (and (setq ctype (mime/Content-Type))
-	   (setq encoding
-		 (mime/Content-Transfer-Encoding boundary
-						 default-encoding))
-	   (mime/decode-content boundary
-				(car ctype) encoding
-				(mime/get-name ctype boundary)
-				)
-	   )
-      )))
-
-(defun mime/decode-message/partial (ctype default-encoding)
-  (let ((root-dir (concat "/tmp/m-prts-" (user-login-name)))
-	(id (cdr (assoc "id" (cdr ctype))))
-	(number (cdr (assoc "number" (cdr ctype))))
-	(total (cdr (assoc "total" (cdr ctype))))
-	file
-	(the-buf (current-buffer))
-	)
-    (if (not (file-exists-p root-dir))
-	(shell-command (concat "mkdir " root-dir))
-      )
-    (setq id (replace-as-filename id))
-    (setq root-dir (concat root-dir "/" id))
-    (if (not (file-exists-p root-dir))
-	(shell-command (concat "mkdir " root-dir))
-      )
-    (setq file (concat root-dir "/FULL"))
-    (if (not (file-exists-p file))
-	(progn
-	  (setq file (concat root-dir "/CT"))
-	  (if (not (file-exists-p file))
-	      (progn
-		(if (get-buffer "*MIME-temp*")
-		    (kill-buffer "*MIME-temp*")
-		  )
-		(switch-to-buffer "*MIME-temp*")
-		(insert (concat total "\n"))
-		(write-file file)
-		(switch-to-buffer the-buf)
-		))
-	  (re-search-forward "^$")
-	  (goto-char (+ (match-end 0) 1))
-	  (setq file (concat root-dir "/" number))
-	  (write-region (point)
-			(point-max)
-			file)
-	  (if (get-buffer "*MIME-temp*")
-	      (kill-buffer "*MIME-temp*")
-	    )
-	  (switch-to-buffer "*MIME-temp*")
-	  (let ((i 1)
-		(max (string-to-int total))
-		)
-	    (catch 'tag
-	      (while (<= i max)
-		(setq file (concat root-dir "/"
-				   (int-to-string i)
-				   ))
-		(if (not (file-exists-p file))
-		    (throw 'tag nil)) 
-		(insert-file-contents file)
-		(goto-char (point-max))
-		(setq i (+ i 1))
-		)
-	      (write-file (concat root-dir "/FULL"))
-	      (mime/decode-body)
-	      (kill-buffer "FULL")
-	      ))
-	  (switch-to-buffer the-buf)
-	  )
-      (progn
-	(find-file file)
-	(mime/decode-body)
-	(kill-buffer "FULL")
-	))
-    ))
-
-(defun mime/narrow-to-content (boundary)
-  (if boundary
-      (progn
-	(narrow-to-region (point)
-			  (progn
-			    (re-search-forward boundary nil t)
-			    (match-beginning 0)
-			    ))
-	(goto-char (point-min))
-	)))
-
-(defun mime/get-name (ctype &optional boundary)
-  (save-excursion
-    (save-restriction
-      (mime/narrow-to-content boundary)
-      (replace-as-filename
-       (or (cdr (assoc "name" (cdr ctype)))
-	   (cdr (assoc "x-name" (cdr ctype)))
-	   (message/get-field-body "Content-Description")
-	   ""))
-      )))
-
-(defun mime/Content-Type (&optional boundary)
-  (save-excursion
-    (save-restriction
-      (mime/narrow-to-content boundary)
-      (if (and (re-search-forward "^Content-Type:[ \t]*" nil t)
-		 (progn
-		   (narrow-to-region
-		    (point)
-		    (and (re-search-forward ".*\\(\n[ \t].*\\)*" nil t)
-			 (match-end 0))
-		    )
-		   (goto-char (point-min))
-		   (re-search-forward mime/content-type-subtype-regexp nil t)
-		   ))
-	    (let ((ctype
-		   (downcase
-		    (buffer-substring (match-beginning 0) (match-end 0))
-		    ))
-		  dest attribute value)
-	      (while (and (re-search-forward "[ \t\n]*;[ \t\n]*" nil t)
-			  (re-search-forward mime/token-regexp nil t)
-			  )
-		(setq attribute
-		      (downcase
-		       (buffer-substring (match-beginning 0) (match-end 0))
-		       ))
-		(if (and (re-search-forward "=[ \t\n]*" nil t)
-			 (re-search-forward mime/content-parameter-value-regexp
-					    nil t)
-			 )
-		    (setq dest
-			  (put-alist attribute
-				     (buffer-substring (match-beginning 0)
-						       (match-end 0))
-				     dest))
-		  )
-		)
-	      (cons ctype dest)
-	      )))))
-
-(defun mime/Content-Transfer-Encoding (&optional boundary default-encoding)
-  (save-excursion
-    (save-restriction
-      (mime/narrow-to-content boundary)
-      (or
-       (if (and (re-search-forward "^Content-Transfer-Encoding:[ \t]*" nil t)
-		(re-search-forward mime/token-regexp nil t)
-		)
-	   (downcase (buffer-substring (match-beginning 0) (match-end 0)))
-	 )
-       default-encoding)
-      )))
-
-(defun mime/base64-decode-region (beg end &optional buf filename)
-  (let ((the-buf (current-buffer)) ret)
-    (if (null buf)
-	(setq buf (get-buffer-create mime/decoding-buffer-name))
-      )
-    (save-excursion
-      (save-restriction
-	(switch-to-buffer buf)
-	(erase-buffer)
-	(switch-to-buffer the-buf)
-	(narrow-to-region beg end)
-	(goto-char (point-min))
-	(while (re-search-forward
-		(concat "^"
-			mime/Base64-encoded-text-regexp
-			"$") nil t)
-	  (setq ret (mime/base64-decode-string
-		     (buffer-substring (match-beginning 0)
-				       (match-end 0)
-				       )))
-	  (switch-to-buffer buf)
-	  (insert ret)
-	  (switch-to-buffer the-buf)
-	  )))
-    (if filename
-	(progn
-	  (switch-to-buffer buf)
-	  (let ((kanji-flag nil)
-		(mc-flag nil)
-		(file-coding-system
-		 (if (featurep 'mule) *noconv*))
-		)
-	    (write-file filename)
-	    (kill-buffer buf)
-	    (switch-to-buffer the-buf)
-	    )))
-    ))
-
-(defun mime/decode-content (boundary ctype encoding name)
-  (let ((method (cdr (assoc ctype mime/content-decoding-method-alist))))
-    (if method
-	(save-excursion
-	  (save-restriction
-	    (re-search-forward "^$")
-	    (goto-char (+ (match-end 0) 1))
-	    (let ((file (make-temp-name "/tmp/TM"))
-		  (b (point)) e
-		  )
-	      (setq e (if boundary
-			  (and (re-search-forward boundary nil t)
-			       (match-beginning 0))
-			(point-max)
-			))
-	      (if (and (string= encoding "base64")
-		       mime/use-internal-decoder)
-		  (progn
-		    (mime/base64-decode-region b e nil file)
-		    (setq encoding "binary")
-		    )
-		(write-region b e file)
-		)
-	      (start-process method mime/output-buffer-name method file
-			     ctype (if encoding
-				       encoding
-				     "7bit")
-			     (if mime/body-decoding-mode
-				 mime/body-decoding-mode
-			       "decode")
-			     (replace-as-filename name))
-	      ))))))
-
-(defun mime/show-body-decoded-result ()
-  (interactive)
-  (if (get-buffer mime/output-buffer-name)
-      (set-window-buffer (get-largest-window)
-			 mime/output-buffer-name)
-    ))
diff --git a/tm-gnus-eng.tex b/tm-gnus-eng.tex
deleted file mode 100644
index e4815cb..0000000
--- a/tm-gnus-eng.tex
+++ /dev/null
@@ -1,120 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-gnus manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/25}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-
-\subsection{tiny-mime}
-\medskip
-\par
-Please copy tiny-mime.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-body}
-\medskip
-\par
-Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-misc}
-\medskip
-\par
-Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-gnus}
-\medskip
-\par
-Please copy tm-gnus.el to your emacs lisp directory.
-\medskip
-\medskip
-\medskip
-
-\section{.emacs}
-\medskip
-\par
-Please insert following list to .emacs.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (not (fboundp 'add-hook))
-    (require 'tl-hook)
-  )
-
-(let ((le (function
-           (lambda ()
-             (require 'tm-gnus)
-             )))
-      )
-  (if (boundp 'MULE)
-      (progn
-        (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
-        (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
-        (autoload 'gnusutil-initialize "gnusutil")
-        (autoload 'gnusutil-add-group "gnusutil")
-        (add-hook 'gnusutil-initialize-hook le)
-        )
-    (progn
-      (add-hook 'gnus-Startup-hook le)
-      (add-hook 'gnus-startup-hook le)
-      )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to use}
-\medskip
-~\\
-\begin{tabular}{|c|r|}
-\hline
- key  &                 function                       \\
-\hline\hline
- M-t  & toggle switch of message header decoding mode  \\
-\hline
-  v   & MIME decode message body and play              \\
-  e   & MIME decode message body and extract to file(s)\\
-C-c p & MIME decode message body and print             \\
-\hline
-\end{tabular}\\
-\medskip
-\medskip
-
-\section{How to use metamail}
-\medskip
-\par
-In normal definition, tm-mh-e use tm-body as MIME body decoder.
-However, you can use metamail. In this case, Of course, you need
-metamail and metamail.el.
-\medskip
-\par
-Please insert following list to .emacs if you want to use metamail.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-If you use metamail, there are no decoding mode of MIME body
-decoding. Therefore, functions for `v', `e', `C-c p' are equally
-`metamail-buffer', and decoding is sequentially.
-\end{document}
diff --git a/tm-gnus-jp.tex b/tm-gnus-jp.tex
deleted file mode 100644
index 06c08cd..0000000
--- a/tm-gnus-jp.tex
+++ /dev/null
@@ -1,230 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-gnus ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ7·î27Æü}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-\par
-*.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-tm-gnus ¤Ï¡¢tiny-mime (MIME header encoder/decoder), tm-body (MIME
-body player), tm-misc (tm-$<$MUA$>$ ¶¦ÄÌ module), tm-gnus ¤Î³Æ module ¤«¤é
-¤Ê¤ê¤Þ¤¹¡£³Æ module Ëè¤Î install Ë¡¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-\medskip
-\medskip
-
-\subsection{tiny-mime ¤Î install}
-\medskip
-\par
-tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë
-copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-body ¤Î install}
-\medskip
-\par
-tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø
-Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-misc ¤Î install}
-\medskip
-\par
-tm-misc.el, tl-hook.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-gnus ¤Î install}
-\medskip
-\par
-tm-gnus.el ¤È tm-gnus3.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS
-3 ¤¬ load ¤µ¤ì¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\medskip
-\medskip
-\medskip
-
-\section{ÀßÄê}
-\medskip
-\par
-.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (not (fboundp 'add-hook))
-    (require 'tl-hook)
-  )
-
-(let ((le (function
-           (lambda ()
-             (require 'tm-gnus)
-             )))
-      )
-  (if (boundp 'MULE)
-      (progn
-        (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
-        (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
-        (autoload 'gnusutil-initialize "gnusutil")
-        (autoload 'gnusutil-add-group "gnusutil")
-        (add-hook 'gnusutil-initialize-hook le)
-        )
-    (progn
-      (add-hook 'gnus-Startup-hook le)
-      (add-hook 'gnus-startup-hook le)
-      )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-Mule ¤Ë¤ª¤±¤ë¾åµ­¤ÎÀßÄê¤Ï¡¢gnusutil ¤òÊ»ÍѤ¹¤ë¾ì¹ç¤Î¤â¤Î¤Ç¤¹¤¬¡¢
-gnusutil ¤òÊ»ÍѤ·¤Ê¤¤¾ì¹ç¤Ï (require 'tm-gnus) ¤À¤±¤Ç·ë¹½¤Ç¤¹¡£
-\medskip
-\medskip
-
-\section{»È¤¤Êý}
-\medskip
-~\\
-\begin{tabular}{|c|c|}
-\hline
- key  &                        µ¡Ç½                                 \\
-\hline\hline
- M-t  & message header ¤ò decode ¤Ë´Ø¤¹¤ë toggle switch             \\
-\hline
-  v   & message body ¤ò MIME decode ¤·¤Æ¡¢ºÆÀ¸¤¹¤ë (play mode)      \\
-  e   & message body ¤ò MIME decode ¤·¤Æ¡¢file ¤ËÍ (extract mode)\\
-C-c p & message body ¤ò MIME decode ¤·¤Æ¡¢°õºþ¤¹¤ë (print mode)     \\
-\hline
-\end{tabular}\\
-\medskip
-\par
-message body ¤Î MIME decode ¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë³ÆÆ°ºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤«¤É¤¦
-¤«¤Ï¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë tm-body ¤Î mthod ¤Ë°Í¸¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{³Æ¼ïÀßÄê}
-\medskip
-
-\subsection{metamail ¤ò»È¤¦ÊýË¡}
-\medskip
-\par
-tm-mh-e ¤Ï MIME body ¤Î decode ¤Ë tm-body ¤ò»È¤¤¤Þ¤¹¤¬¡¢metamail ¤ò
-»È¤¦¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤â²Äǽ¤Ç¤¹¡£Ã¢¤·¡¢metamail ¤È metamail.el ¤¬É¬Í×
-¤Ç¤¹¡£
-\medskip
-\par
-¤³¤Î¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-metamail ¤ò»È¤¦ÀßÄê¤Î¾ì¹ç¡¢`v', `e', `C-c p' ¤ËÂбþ¤¹¤ëÆ°ºî¤Ï
-metamail ¤Ë¤«¤±¤ë¤À¤±¤Ë¤Ê¤ê¡¢Æ±°ì¤ÎÆ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Æ°ºî¤ÏÃ༡Ū
-¤Ë¤Ê¤ê¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
-\medskip
-\par
-article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è
-¤¦¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
-\medskip
-\par
-¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï
-¤Ê¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï
-(tm-gnus/set-mime-header-decoding-mode nil) ¤ò¹Ô¤Ê¤Ã¤Æ¡¢MIME header
-decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
-Äꤷ¤Æ²¼¤µ¤¤¡£
-\medskip
-\par
-Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
-°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
-¤Ç¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-        (let ((mm mime/header-decoding-mode))
-          (tm-gnus/set-mime-header-decoding-mode nil)
-          (article save ´Ø¿ô)
-          (tm-gnus/set-mime-header-decoding-mode mm)
-          )
-\end{verbatim}}
-\medskip
-\par
-°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(add-hook 'gnus-Startup-hook
-          (function
-           (lambda ()
-             (setq gnus-default-article-saver
-                   (function
-                    (lambda ()
-                      (interactive)
-                      (let ((mm mime/header-decoding-mode))
-                        (tm-gnus/set-mime-header-decoding-mode nil)
-                        (gnus-Subject-save-in-folder)
-                        (tm-gnus/set-mime-header-decoding-mode mm)
-                        )))))))
-(add-hook 'gnus-startup-hook
-          (function
-           (lambda ()
-             (setq gnus-default-article-saver
-                   (function
-                    (lambda ()
-                      (interactive)
-                      (let ((mm mime/header-decoding-mode))
-                        (tm-gnus/set-mime-header-decoding-mode nil)
-                        (gnus-summary-save-in-folder)
-                        (tm-gnus/set-mime-header-decoding-mode mm)
-                        )))))))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
-\medskip
-\par
-Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
-¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
-À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(add-hook 'gnus-article-prepare-hook
-          (function
-           (lambda ()
-             (if (mime/exist-encoded-word-in-subject)
-                 (setq mime/no-encoding-header-fields '("X-Nsubject"))
-               (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-               ))))
-----------------------------------------------------------------------
-\end{verbatim}}
-\end{document}
diff --git a/tm-mh-e-eng.tex b/tm-mh-e-eng.tex
deleted file mode 100644
index dbb9d44..0000000
--- a/tm-mh-e-eng.tex
+++ /dev/null
@@ -1,123 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tm-mh-e manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/20}
-\maketitle
-\medskip
-
-\section{Install}
-\medskip
-
-\subsection{tiny-mime}
-\medskip
-\par
-Please copy tiny-mime.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-body}
-\medskip
-\par
-Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-misc}
-\medskip
-\par
-Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-\medskip
-\medskip
-
-\subsection{tm-mh-e}
-\medskip
-\par
-Please copy tm-mh-e.el and tm-mh-e3.el to your emacs lisp directory.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-  If you want to byte-compile tm-mh-e3.el, please do it after you did
-load mh-e version 3.x.
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{.emacs}
-\medskip
-{\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-18)
-      (defvar buffer-undo-list nil)
-      ))
-
-(add-hook 'mh-folder-mode-hook
-          (function
-           (lambda ()
-             (require 'tm-mh-e)
-             )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to use}
-\medskip
-~\\
-\begin{tabular}{|c|r|}
-\hline
- key  &                 function                       \\
-\hline\hline
- M-t  & toggle switch of message header decoding mode  \\
-\hline
-  v   & MIME decode message body and play              \\
-  e   & MIME decode message body and extract to file(s)\\
-C-c p & MIME decode message body and print             \\
-\hline
-\end{tabular}\\
-\medskip
-\medskip
-
-\section{How to use metamail}
-\medskip
-\par
-In normal definition, tm-mh-e use tm-body as MIME body decoder.
-However, you can use metamail. In this case, Of course, you need
-metamail and metamail.el.
-\medskip
-\par
-Please insert following list to .emacs if you want to use metamail.
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-If you use metamail, there are no decoding mode of MIME body
-decoding. Therefore, functions for `v', `e', `C-c p' are equally
-`metamail-buffer', and decoding is sequentially.
-\end{document}
diff --git a/tm-mh-e-jp.tex b/tm-mh-e-jp.tex
deleted file mode 100644
index 34eb15f..0000000
--- a/tm-mh-e-jp.tex
+++ /dev/null
@@ -1,144 +0,0 @@
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tm-mh-e ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ8·î20Æü}
-\maketitle
-\medskip
-
-\section{install}
-\medskip
-
-\subsection{tiny-mime ¤Î install}
-\medskip
-\par
-tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë
-copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-body ¤Î install}
-\medskip
-\par
-tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø
-Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-misc ¤Î install}
-\medskip
-\par
-tm-misc.el, tl-hook.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\subsection{tm-mh-e ¤Î install}
-\medskip
-\par
-tm-mh-e.el, tm-mh-e3.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤷ¤¿
-directory ¤Ë copy ¤·¤Þ¤¹¡£
-\medskip
-\par
-tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load ¤·
-¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{ÀßÄê}
-\medskip
-\par
-mime-setup ¤ò»È¤Ã¤Æ²¼¤µ¤¤¡£
-\medskip
-\par
-mime-setup ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (< (string-to-int emacs-version) 19)
-    (progn
-      (require 'tl-18)
-      (defvar buffer-undo-list nil)
-      ))
-
-(add-hook 'mh-folder-mode-hook
-          (function
-           (lambda ()
-             (require 'tm-mh-e)
-             )))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢\verb+~+/.mh\_profile ¤Ë
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-scan:   -form scan.mime
-inc:    -form inc.mime
-repl:   -form replcomps.mime
-showproc: mhl
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦¤Ç¼è¤ê»ÅÀÚ
-¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{»È¤¤Êý}
-\medskip
-~\\
-\begin{tabular}{|c|c|}
-\hline
- key  &                        µ¡Ç½                                 \\
-\hline\hline
- M-t  & message header ¤ò decode ¤Ë´Ø¤¹¤ë toggle switch             \\
-\hline
-  v   & message body ¤ò MIME decode ¤·¤Æ¡¢ºÆÀ¸¤¹¤ë (play mode)      \\
-  e   & message body ¤ò MIME decode ¤·¤Æ¡¢file ¤ËÍ (extract mode)\\
-C-c p & message body ¤ò MIME decode ¤·¤Æ¡¢°õºþ¤¹¤ë (print mode)     \\
-\hline
-\end{tabular}\\
-\medskip
-\par
-message body ¤Î MIME decode ¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë³ÆÆ°ºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤«¤É¤¦
-¤«¤Ï¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë tm-body ¤Î mthod ¤Ë°Í¸¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{metamail ¤ò»È¤¦ÊýË¡}
-\medskip
-\par
-tm-mh-e ¤Ï MIME body ¤Î decode ¤Ë tm-body ¤ò»È¤¤¤Þ¤¹¤¬¡¢metamail ¤ò
-»È¤¦¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤â²Äǽ¤Ç¤¹¡£Ã¢¤·¡¢metamail ¤È metamail.el ¤¬É¬Í×
-¤Ç¤¹¡£
-\medskip
-\par
-¤³¤Î¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-metamail ¤ò»È¤¦ÀßÄê¤Î¾ì¹ç¡¢`v', `e', `C-c p' ¤ËÂбþ¤¹¤ëÆ°ºî¤Ï
-metamail ¤Ë¤«¤±¤ë¤À¤±¤Ë¤Ê¤ê¡¢Æ±°ì¤ÎÆ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Æ°ºî¤ÏÃ༡Ū
-¤Ë¤Ê¤ê¤Þ¤¹¡£
-\end{document}