This commit was manufactured by cvs2svn to create tag 'tm5_1'. tm5_1
authortomo <tomo>
Mon, 2 Mar 1998 13:44:28 +0000 (13:44 +0000)
committertomo <tomo>
Mon, 2 Mar 1998 13:44:28 +0000 (13:44 +0000)
17 files changed:
README-eng.ol [deleted file]
README-eng.tex [deleted file]
README-jp.ol [deleted file]
README-jp.tex [deleted file]
tm-body-eng.ol [deleted file]
tm-body-eng.tex [deleted file]
tm-body-jp.ol [deleted file]
tm-body-jp.tex [deleted file]
tm-body.el [deleted file]
tm-gnus-eng.ol [deleted file]
tm-gnus-eng.tex [deleted file]
tm-gnus-jp.ol [deleted file]
tm-gnus-jp.tex [deleted file]
tm-mh-e-eng.ol [deleted file]
tm-mh-e-eng.tex [deleted file]
tm-mh-e-jp.ol [deleted file]
tm-mh-e-jp.tex [deleted file]

diff --git a/README-eng.ol b/README-eng.ol
deleted file mode 100644 (file)
index 4694143..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-[[R
-\title{tm-$<$MUA$>$ Manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-]]R
-
-  tm-<MUA> is a MIME tools for GNU Emacs.
-
-
-* Files
-
-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
-
-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
-
-mime-setup.el  setup program
-signature.el   signature selector
-ol2.c          Emacs outline mode to plain text converter
-
-
-* How to install
-
-(1) Edit Makefile for your environment.
-
-(2) Edit methods in `methods/' directory for your environment.
-
-(3) Run `make all'.
-
-(4) Run `make install'.
-
-(5) Copy *.el to your emacs lisp directory.
-
-
-* How to use
-
-  Please read tm-mh-e-eng.ol and tm-gnus-eng.ol.
diff --git a/README-eng.tex b/README-eng.tex
deleted file mode 100644 (file)
index 996ebd7..0000000
+++ /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.ol b/README-jp.ol
deleted file mode 100644 (file)
index 037ab83..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-\e$B!X\e(Btm-<MUA> \e$B@bL@=q!Y\e(B
-
-* tm \e$B$H$O\e(B
-
-  tm \e$B$O\e(B Emacs \e$B$K\e(B MIME \e$B5!G=$rIU2C!&6/2=$9$k$?$a$N\e(B package \e$B$G$9!#$3$N\e(B 
-package \e$B$O0J2<$N$b$N$r4^$s$G$$$^$9!#\e(B
-
-       - tiny-mime     MIME header encoder/decoder
-       - tm-body       MIME body player
-       - tm-gnus       MIME extender for GNUS
-       - tm-mh-e       MIME extender for mh-e
-
-\e$B$G$9!#\e(B
-
-
-* install \e$B$N;EJ}\e(B
-
-(1) Makefile \e$B$N\e(B bindir \e$B$r<+J,$N4D6-$K9g$o$;$F=q$-49$($k!#\e(B
-
-(2) methods/ \e$B0J2<$N\e(B method \e$B$r!"\e(Btm-body \e$B$N@bL@=q$r8+$F!"<+J,$N4D6-$K9g\e(B
-    \e$B$&$h$&$K=q$-49$($k!#\e(B
-
-(3) make all \e$B$9$k!#\e(B
-
-(4) make install \e$B$9$k!#\e(B
-
-(5) *.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$9$k!#\e(B
-
-
-  tm-mh-e, tm-gnus \e$B$N@bL@$O!"\e(Btm-mh-e.ol, tm-gnus.ol \e$B$rFI$s$G2<$5$$!#\e(B
-plain2 \e$B$,\e(B install \e$B$5$l$F$$$k>l9g!"\e(Bmake dvi \e$B$r9T$J$&$3$H$G\e(B dvi \e$B$KJQ49$G\e(B
-\e$B$-$^$9!#\e(B
-
-
-* \e$B%P%0Js9p$N;EJ}\e(B
-
-  tm \e$B$N%P%0$r8+$D$1$?$i\e(B fj.editor.emacs \e$B$K\e(B post \e$B$9$k$+!"\e(Btm ML
-<tm@chamonix.jaist.ac.jp> \e$B$K\e(B mail \e$B$rAw$C$F2<$5$$!#\e(B
-
-  tm ML \e$B$G$O\e(B tm \e$B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"\e(Btm \e$B$N2~NI$K4X$9$k5DO@\e(B
-\e$B$r9T$J$C$F$$$^$9!#\e(Btm ML \e$B$K;22C$7$?$$J}$O\e(B
-
-       tm-admin@chamonix.jaist.ac.jp
-
-\e$B$^$G\e(B mail \e$B$rAw$C$F2<$5$$!#EPO?$O<jF0$G$9$N$G!"$G$-$l$P!"<+A38@8l$G=q$$\e(B
-\e$B$F2<$5$$!#\e(B(^_^)
-
-
-* \e$B$*$^$1\e(B
-
-  mime-setup \e$B$H$$$&4J0W@_Dj\e(B tool \e$B$rIU$1$^$7$?!#\e(B.emacs \e$B$K0J2<$N$b$N$rF~\e(B
-\e$B$l$k$H\e(B tm-<MUA> \e$B$N@_Dj$H\e(B mime.el \e$B$r;H$C$?\e(B encode \e$B$N@_Dj$r9T$J$C$F$/$l\e(B
-\e$B$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(load "mime-setup")
-----------------------------------------------------------------------
-]]E
-
-  mime-setup.el \e$B$OI8=`$G$O\e(B SuperCite \e$B$N@_Dj$b9T$J$$$^$9!#$3$l$r$d$a$k\e(B
-\e$B>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(setq mime-setup-use-sc nil)
-----------------------------------------------------------------------
-]]E
-
-  mime-setup \e$B$G$O\e(B signature \e$B$N<+F0@ZBX$(\e(B tool \e$B$bImB0$7$F$$$^$9!#\e(B
-message header \e$B$N\e(B field \e$B$K9g$o$;$F\e(B signature \e$B$N<+F0@ZBX$r9T$J$$$?$$>l\e(B
-\e$B9g$O\e(B .emacs \e$B$K0J2<$N$h$&$J$b$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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")
-       ))
-----------------------------------------------------------------------
-]]E
-
-  mime-setup \e$B$r;H$&>l9g$O!"\e(Bmime.el \e$B$,I,MW$G$9!#$^$?!"\e(BSuperCite \e$B$r;H$&\e(B
-\e$B>l9g$O!"\e(BSuperCite \e$B$bI,MW$G$9!#\e(B
diff --git a/README-jp.tex b/README-jp.tex
deleted file mode 100644 (file)
index 257d669..0000000
+++ /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.ol b/tm-body-eng.ol
deleted file mode 100644 (file)
index b6a09d1..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-[[R
-\title{tm-body manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/22}
-\maketitle
-]]R
-
-* Install
-
-  Installing method is written in README-eng.ol. Please read it and
-install.
-
-** tiny-mime.el
-
-  Please copy tiny-mime.el to your Emacs lisp directory.
-
-
-** tm-body
-
-*** *.el
-
-  Please copy tm-body.el, tl-list.el and tl-header.el to your Emacs
-lisp directory.
-
-*** methods
-
-  Please edit methods for your environment, and copy to your
-executable directory.
-
-
-*** decode-b.c
-
-  Please compile decode-b.c by gcc or another ANSI C.
-
-[[E
-       % gcc -O decode-b.c -o decode-b
-]]E
-
-  And please copy decode-b to your executable directory.
-
-  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).
-
-
-* Customize
-
-  You can designate methods of Content-Types if you set variable
-`mime/content-decoding-method-alist' in .emacs.
-
-[[E
-----------------------------------------------------------------------
-(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")
-    ))
-----------------------------------------------------------------------
-]]E
-
-  Each methods are shell scripts. Arguments of methods are written in
-following table.
-
-----------------------------------------------------------------------------
-|argument|                           value                                 |
-============================================================================
-|   $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                                    |
-----------------------------------------------------------------------------
-
-  Each Content-Types are decoded by methods. Exceptionally,
-message/partial is decoded by tm-body.el.
-
-
-* Limitation or bug
-
-  In this version, message/external-body is not supported.
-
-  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...(^_^;
-
-  Or you can use mmencode attached in metamail as decoder.
-
-  In this package, there is no Quoted-Printable decoder, so please use 
-mmencode.
diff --git a/tm-body-eng.tex b/tm-body-eng.tex
deleted file mode 100644 (file)
index bb161bf..0000000
+++ /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.ol b/tm-body-jp.ol
deleted file mode 100644 (file)
index 2e0ed5f..0000000
+++ /dev/null
@@ -1,90 +0,0 @@
-\e$B!X\e(Btm-body \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B7\e$B7n\e(B14\e$BF|\e(B
-
-* install
-
-  README \e$B$K=>$C$F\e(B install \e$B$r9T$J$C$F2<$5$$!#\e(B
-
-** tiny-mime \e$B$N\e(B install
-
-  tiny-mime.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B 
-copy \e$B$7$^$9!#\e(B
-
-
-** tm-body \e$B$N\e(B install
-
-*** *.el \e$B$r\e(B copy \e$B$9$k\e(B
-
-  tm-body.el, tl-list.el, tl-header.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;X\e(B
-\e$BDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-*** method \e$B$r\e(B copy \e$B$9$k\e(B
-
-  methods/ \e$B$KF~$C$F$$$k!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B method \e$B$r!"<+J,$N\e(B
-\e$B4D6-$K9g$o$;$F=$@5$7!"\e(Bpath \e$B$NDL$C$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-*** decode-b.c \e$B$r\e(B compile \e$B$9$k\e(B
-
-  Base64 decoder \e$B$G$"$k\e(B decode-b.c \e$B$r\e(B gcc \e$B$G\e(B compile \e$B$7$^$9!#\e(B
-
-[[E
-       % gcc -O decode-b.c -o decode-b
-]]E
-
-  \e$B$=$7$F!"=PMh>e$,$C$?\e(B decode-b \e$B$r\e(B path \e$B$NDL$C$?\e(B directory \e$B$K\e(B copy \e$B$7\e(B
-\e$B$^$9!#\e(B
-
-  \e$BC"$7!"B>$N\e(B decoder\e$B!JNc$($P!"\e(Bmetamail \e$BImB0$N\e(B mmencode \e$B$J$I!K$,$"$l$P!"\e(B
-method \e$BCf$N\e(B decode-b \e$B$r$=$N\e(B decoder \e$B$GCV$-49$($F$b9=$$$^$;$s!#Nc$($P!"\e(B
-decode-b < \e$B$r\e(B mmencode -b -u \e$B$GCV$-49$($F$_$F\e(B\e$B2<$5$$!#\e(B
-
-
-* \e$B%+%9%?%^%$%:\e(B
-
-  .emacs \e$B$K0J2<$N$h$&$J$b$N$rF~$l$F!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B method
-\e$B$r;XDj$9$k$3$H$,$G$-$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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")
-    ))
-----------------------------------------------------------------------
-]]E
-
-  \e$B3F\e(B method \e$B$O\e(B shell script \e$B$G=q$-$^$9!#\e(Btm-body.el \e$B$+$iEO$5$l$k0z?t$O\e(B
-\e$B0J2<$NDL$j$G$9!#\e(B
-
-------------------------------------------------------------------------
-|\e$B0z?t\e(B|                           \e$BCM\e(B                                    |
-========================================================================
-| $1 |decode \e$BA0$N\e(B file \e$BL>\e(B                                              |
-| $2 |Content-Type (type/sub-type)                                     |
-| $3 |encoding {7bit / quoted-printable / base64 / 8bit / binary / ...}|
-| $4 |decoding-mode {play / extract / print}                           |
-| $5 |file \e$BL>\e(B                                                          |
-------------------------------------------------------------------------
-
-  \e$B$^$?!"\e(Bmessage/partial \e$B$@$1$O\e(B tm-body.el \e$B<+?H$GI|85$7$^$9!#\e(B
-
-
-* \e$B@)8B\e(B
-
-  message/external-body \e$B$K4X$7$F$O8=:_$N$H$3$m%5%]!<%H$7$F$$$^$;$s!#\e(B
-
-  \e$BImB0$N\e(B BASE64 decoder \e$B$G$"$k\e(B decode-b.c \e$B$O$$$$2C8:$J:n$j$J$N$G!"F0$+\e(B
-\e$B$J$+$C$?$i!"C;$$%W%m%0%i%`$J$N$G!"0U$r5b$s$G=$@5$7$F2<$5$$!#\e(B(^_^;
-
-  \e$B$^$?!"\e(Bmetamail \e$BImB0$N\e(B mmencode \e$B$r;H$C$F\e(B decode \e$B$7$F$bNI$$$G$7$g$&!#\e(B
-
-  \e$B$^$?!"\e(BQuoted-Printable \e$B$N\e(B decoder \e$B$OImB0$7$^$;$s$N$G!"\e(Bmmencode \e$B$r;H$C\e(B
-\e$B$F2<$5$$!#\e(B
diff --git a/tm-body-jp.tex b/tm-body-jp.tex
deleted file mode 100644 (file)
index 0d5b212..0000000
+++ /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 (file)
index ad1d61d..0000000
+++ /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.ol b/tm-gnus-eng.ol
deleted file mode 100644 (file)
index f5c74bc..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-[[R
-\title{tm-gnus manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/7/25}
-\maketitle
-]]R
-
-* Install
-
-** tiny-mime
-
-  Please copy tiny-mime.el to your emacs lisp directory.
-
-
-** tm-body
-
-  Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-
-
-** tm-misc
-
-  Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-
-
-** tm-gnus
-
-  Please copy tm-gnus.el to your emacs lisp directory.
-
-
-
-* .emacs
-
-  Please insert following list to .emacs.
-
-[[E
-----------------------------------------------------------------------
-(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)
-      )))
-----------------------------------------------------------------------
-]]E
-
-
-* How to use
-
--------------------------------------------------------
-| key |                function                       |
-=======================================================
-| M-t |toggle switch of message header decoding mode  |
--------------------------------------------------------
-|  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             |
--------------------------------------------------------
-
-
-* How to use metamail
-
-  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.
-
-  Please insert following list to .emacs if you want to use metamail.
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
-  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.
diff --git a/tm-gnus-eng.tex b/tm-gnus-eng.tex
deleted file mode 100644 (file)
index e4815cb..0000000
+++ /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.ol b/tm-gnus-jp.ol
deleted file mode 100644 (file)
index 8927a3f..0000000
+++ /dev/null
@@ -1,182 +0,0 @@
-\e$B!X\e(Btm-gnus \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B7\e$B7n\e(B27\e$BF|\e(B
-
-* Install
-
-  *.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-tm-gnus \e$B$O!"\e(Btiny-mime (MIME header encoder/decoder), tm-body (MIME
-body player), tm-misc (tm-<MUA> \e$B6&DL\e(B module), tm-gnus \e$B$N3F\e(B module \e$B$+$i\e(B
-\e$B$J$j$^$9!#3F\e(B module \e$BKh$N\e(B install \e$BK!$O0J2<$NDL$j$G$9!#\e(B
-
-
-** tiny-mime \e$B$N\e(B install
-
-  tiny-mime.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B 
-copy \e$B$7$^$9!#\e(B
-
-
-** tm-body \e$B$N\e(B install
-
-  tm-body.el, tl-list.el, tl-header.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;X\e(B
-\e$BDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-misc \e$B$N\e(B install
-
-  tm-misc.el, tl-hook.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B 
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-gnus \e$B$N\e(B install
-
-  tm-gnus.el \e$B$H\e(B tm-gnus3.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B 
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(Btm-gnus3.el \e$B$r\e(B byte-compile \e$B$9$k>l9g$O!"\e(BGNUS
-3 \e$B$,\e(B load \e$B$5$l$?>uBV$G9T$J$C$F2<$5$$!#\e(B
-
-
-
-* \e$B@_Dj\e(B
-
-  .emacs \e$B$K0J2<$N$b$N$rF~$l$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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)
-      )))
-----------------------------------------------------------------------
-]]E
-
-  Mule \e$B$K$*$1$k>e5-$N@_Dj$O!"\e(Bgnusutil \e$B$rJ;MQ$9$k>l9g$N$b$N$G$9$,!"\e(B
-gnusutil \e$B$rJ;MQ$7$J$$>l9g$O\e(B (require 'tm-gnus) \e$B$@$1$G7k9=$G$9!#\e(B
-
-
-* \e$B;H$$J}\e(B
-
---------------------------------------------------------------------
-| key |                       \e$B5!G=\e(B                                 |
-====================================================================
-| M-t |message header \e$B$r\e(B decode \e$B$K4X$9$k\e(B toggle switch             |
---------------------------------------------------------------------
-|  v  |message body \e$B$r\e(B MIME decode \e$B$7$F!":F@8$9$k\e(B (play mode)      |
-|  e  |message body \e$B$r\e(B MIME decode \e$B$7$F!"\e(Bfile \e$B$KMn$9\e(B (extract mode)|
-|C-c p|message body \e$B$r\e(B MIME decode \e$B$7$F!"0u:~$9$k\e(B (print mode)     |
---------------------------------------------------------------------
-
-  message body \e$B$N\e(B MIME decode \e$B$K$*$$$F!"<B:]$K3FF0:n$,9T$J$o$l$k$+$I$&\e(B
-\e$B$+$O!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B tm-body \e$B$N\e(B mthod \e$B$K0MB8$7$^$9!#\e(B
-
-
-* \e$B3F<o@_Dj\e(B
-
-** metamail \e$B$r;H$&J}K!\e(B
-
-  tm-mh-e \e$B$O\e(B MIME body \e$B$N\e(B decode \e$B$K\e(B tm-body \e$B$r;H$$$^$9$,!"\e(Bmetamail \e$B$r\e(B
-\e$B;H$&$h$&$K@_Dj$9$k$3$H$b2DG=$G$9!#C"$7!"\e(Bmetamail \e$B$H\e(B metamail.el \e$B$,I,MW\e(B
-\e$B$G$9!#\e(B
-
-  \e$B$3$N>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
-  metamail \e$B$r;H$&@_Dj$N>l9g!"\e(B`v', `e', `C-c p' \e$B$KBP1~$9$kF0:n$O\e(B 
-metamail \e$B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`<!E*\e(B
-\e$B$K$J$j$^$9!#\e(B
-
-
-** article \e$B$r\e(B save \e$B$9$k;~\e(B decoding \e$B$7$J$$\e(B
-
-  article \e$B$r\e(B save \e$B$9$k;~!"J]B8$5$l$k\e(B message \e$B$O$=$N;~I=<($5$l$F$$$k$h\e(B
-\e$B$&$K!"$=$N;~$N\e(B MIME header decoding mode \e$B$K1~$8$F\e(B save \e$B$5$l$^$9!#\e(B
-
-  \e$B$7$+$7!"\e(Barticle \e$B$r\e(B save \e$B$9$k;~!">o$K!"\e(BMIME header decoding \e$B$r9T$J$o\e(B
-\e$B$J$$!"@8$N\e(B message \e$B$GJ]B8$7$?$$>l9g$O\e(B
-(tm-gnus/set-mime-header-decoding-mode nil) \e$B$r9T$J$C$F!"\e(BMIME header
-decoding \e$B$r9T$J$o$J$$\e(B mode \e$B$K$7$F!"\e(Barticle save \e$B4X?t$r<B9T$9$k$h$&$K@_\e(B
-\e$BDj$7$F2<$5$$!#\e(B
-
-  Save \e$B$N<B9T8e!"\e(BMIME header decoding mode \e$B$rA0$N>uBV$KLa$7$?$$>l9g$O!"\e(B
-\e$B0J2<$N$h$&$K!"0l;~JQ?t$K\e(B MIME header decoding mode \e$B$rJ]B8$7$F$*$1$P\e(B OK 
-\e$B$G$9!#\e(B
-
-[[E
-       (let ((mm mime/header-decoding-mode))
-         (tm-gnus/set-mime-header-decoding-mode nil)
-         (article save \e$B4X?t\e(B)
-         (tm-gnus/set-mime-header-decoding-mode mm)
-         )
-]]E
-
-  \e$B0J2<$K!"\e(Bmh-e \e$B$N\e(B folder \e$B$K\e(B save \e$B$9$k>l9g$NNc$r<($7$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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)
-                       )))))))
-----------------------------------------------------------------------
-]]E
-
-
-** reply \e$B$9$k;~\e(B Subject \e$B$N\e(B encoding \e$BK!$r\e(B reply \e$B85$K9g$o$;$k\e(B
-
-  Reply \e$B$9$k;~!"\e(Breply \e$B85$N\e(B Subject \e$B$K\e(B ASCII \e$B0J30$NJ8;z=89g$NF~$C$F$$$k\e(B
-\e$B>l9g!"\e(Breply \e$B85$,\e(B MIME encode \e$B$5$l$F$$$?$i\e(B encode \e$B$7!"$=$&$G$J$+$C$?$i\e(B
-\e$B@8$GF~$l$?$$>l9g$O!"<!$N$h$&$K@_Dj$7$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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"))
-              ))))
-----------------------------------------------------------------------
-]]E
diff --git a/tm-gnus-jp.tex b/tm-gnus-jp.tex
deleted file mode 100644 (file)
index 06c08cd..0000000
+++ /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.ol b/tm-mh-e-eng.ol
deleted file mode 100644 (file)
index 67edfe5..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-[[R
-\title{tm-mh-e manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/20}
-\maketitle
-]]R
-
-* Install
-
-** tiny-mime
-
-  Please copy tiny-mime.el to your emacs lisp directory.
-
-
-** tm-body
-
-  Please copy tm-body.el, tl-list.el and tl-header.el to your emacs
-lisp directory.
-
-
-** tm-misc
-
-  Please copy tm-misc.el and tl-hook.el to your emacs lisp directory.
-
-
-** tm-mh-e
-
-  Please copy tm-mh-e.el and tm-mh-e3.el to your emacs lisp directory.
-
-  If you want to byte-compile tm-mh-e3.el, please do it after you did
-load mh-e version 3.x.
-
-
-* .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-18)
-      (defvar buffer-undo-list nil)
-      ))
-
-(add-hook 'mh-folder-mode-hook
-         (function
-          (lambda ()
-            (require 'tm-mh-e)
-            )))
-----------------------------------------------------------------------
-]]E
-
-
-* How to use
-
--------------------------------------------------------
-| key |                function                       |
-=======================================================
-| M-t |toggle switch of message header decoding mode  |
--------------------------------------------------------
-|  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             |
--------------------------------------------------------
-
-
-* How to use metamail
-
-  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.
-
-  Please insert following list to .emacs if you want to use metamail.
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
-  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.
diff --git a/tm-mh-e-eng.tex b/tm-mh-e-eng.tex
deleted file mode 100644 (file)
index dbb9d44..0000000
+++ /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.ol b/tm-mh-e-jp.ol
deleted file mode 100644 (file)
index 1cc52c0..0000000
+++ /dev/null
@@ -1,104 +0,0 @@
-\e$B!X\e(Btm-mh-e \e$B@bL@=q!Y\e(B
-by. \e$B<i2,\e(B \e$BCNI'\e(B
-1994\e$BG/\e(B8\e$B7n\e(B20\e$BF|\e(B
-
-* install
-
-** tiny-mime \e$B$N\e(B install
-
-  tiny-mime.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B directory \e$B$K\e(B 
-copy \e$B$7$^$9!#\e(B
-
-
-** tm-body \e$B$N\e(B install
-
-  tm-body.el, tl-list.el, tl-header.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;X\e(B
-\e$BDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-misc \e$B$N\e(B install
-
-  tm-misc.el, tl-hook.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$5$l$?\e(B 
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-
-** tm-mh-e \e$B$N\e(B install
-
-  tm-mh-e.el, tm-mh-e3.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$7$?\e(B 
-directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
-
-  tm-mh-e3.el \e$B$r\e(B byte-compile \e$B$9$k>l9g$O!"\e(Bmh-e version 3.* \e$B$r\e(B load \e$B$7\e(B
-\e$B$?>uBV$G9T$J$C$F2<$5$$!#\e(B
-
-
-* \e$B@_Dj\e(B
-
-  mime-setup \e$B$r;H$C$F2<$5$$!#\e(B
-
-  mime-setup \e$B$r;H$o$J$$>l9g$O\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(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)
-            )))
-----------------------------------------------------------------------
-]]E
-
-  \e$B$^$?!"\e(BMH \e$B$,\e(B MH-6.8JP2 \e$B$N>l9g!"\e(B~/.mh_profile \e$B$K\e(B
-
-[[E
-----------------------------------------------------------------------
-scan:  -form scan.mime
-inc:   -form inc.mime
-repl:  -form replcomps.mime
-showproc: mhl
-----------------------------------------------------------------------
-]]E
-
-\e$B$rDI2C$7$F$/$@$5$$!#$^$?!"$=$l0J30$N\e(B MH \e$B$N=hM}$O\e(B Emacs \e$B$NB&$G<h$j;E@Z\e(B
-\e$B$k$N$G!"\e(BMH \e$B$N@_Dj$O$7$J$$$h$&$K$7$F$/$@$5$$!#\e(B
-
-
-* \e$B;H$$J}\e(B
-
---------------------------------------------------------------------
-| key |                       \e$B5!G=\e(B                                 |
-====================================================================
-| M-t |message header \e$B$r\e(B decode \e$B$K4X$9$k\e(B toggle switch             |
---------------------------------------------------------------------
-|  v  |message body \e$B$r\e(B MIME decode \e$B$7$F!":F@8$9$k\e(B (play mode)      |
-|  e  |message body \e$B$r\e(B MIME decode \e$B$7$F!"\e(Bfile \e$B$KMn$9\e(B (extract mode)|
-|C-c p|message body \e$B$r\e(B MIME decode \e$B$7$F!"0u:~$9$k\e(B (print mode)     |
---------------------------------------------------------------------
-
-  message body \e$B$N\e(B MIME decode \e$B$K$*$$$F!"<B:]$K3FF0:n$,9T$J$o$l$k$+$I$&\e(B
-\e$B$+$O!"3F\e(B Content-Type \e$B$KBP1~$9$k\e(B tm-body \e$B$N\e(B mthod \e$B$K0MB8$7$^$9!#\e(B
-
-
-* metamail \e$B$r;H$&J}K!\e(B
-
-  tm-mh-e \e$B$O\e(B MIME body \e$B$N\e(B decode \e$B$K\e(B tm-body \e$B$r;H$$$^$9$,!"\e(Bmetamail \e$B$r\e(B
-\e$B;H$&$h$&$K@_Dj$9$k$3$H$b2DG=$G$9!#C"$7!"\e(Bmetamail \e$B$H\e(B metamail.el \e$B$,I,MW\e(B
-\e$B$G$9!#\e(B
-
-  \e$B$3$N>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(autoload 'metamail-buffer "metamail" nil t)
-(setq mime/body-decoding-method (function metamail-buffer))
-----------------------------------------------------------------------
-]]E
-
-  metamail \e$B$r;H$&@_Dj$N>l9g!"\e(B`v', `e', `C-c p' \e$B$KBP1~$9$kF0:n$O\e(B 
-metamail \e$B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`<!E*\e(B
-\e$B$K$J$j$^$9!#\e(B
diff --git a/tm-mh-e-jp.tex b/tm-mh-e-jp.tex
deleted file mode 100644 (file)
index 34eb15f..0000000
+++ /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}