From: tomo Date: Mon, 2 Mar 1998 13:43:02 +0000 (+0000) Subject: This commit was manufactured by cvs2svn to create tag 'tm5_0'. X-Git-Tag: tm5_0 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=810198886874404d439b4540da5e34c155e6deb3;p=elisp%2Ftm.git This commit was manufactured by cvs2svn to create tag 'tm5_0'. --- diff --git a/README-eng.ol b/README-eng.ol deleted file mode 100644 index 4694143..0000000 --- a/README-eng.ol +++ /dev/null @@ -1,52 +0,0 @@ -[[R -\title{tm-$<$MUA$>$ Manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/7/22} -\maketitle -]]R - - tm- 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- for GNUS -tm-mh-e.el tm- for mh-e -tm-mh-e3.el tm-mh-e's module for mh-e 3.x. -tm-misc.el tm- 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 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- 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- for GNUS -tm-mh-e.el tm- for mh-e -tm-mh-e3.el tm-mh-e's module for mh-e 3.x. -tm-misc.el tm- 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 index 037ab83..0000000 --- a/README-jp.ol +++ /dev/null @@ -1,88 +0,0 @@ -$B!X(Btm- $B@bL@=q!Y(B - -* tm $B$H$O(B - - tm $B$O(B Emacs $B$K(B MIME $B5!G=$rIU2C!&6/2=$9$k$?$a$N(B package $B$G$9!#$3$N(B -package $B$O0J2<$N$b$N$r4^$s$G$$$^$9!#(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 - -$B$G$9!#(B - - -* install $B$N;EJ}(B - -(1) Makefile $B$N(B bindir $B$r<+J,$N4D6-$K9g$o$;$F=q$-49$($k!#(B - -(2) methods/ $B0J2<$N(B method $B$r!"(Btm-body $B$N@bL@=q$r8+$F!"<+J,$N4D6-$K9g(B - $B$&$h$&$K=q$-49$($k!#(B - -(3) make all $B$9$k!#(B - -(4) make install $B$9$k!#(B - -(5) *.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B directory $B$K(B copy $B$9$k!#(B - - - tm-mh-e, tm-gnus $B$N@bL@$O!"(Btm-mh-e.ol, tm-gnus.ol $B$rFI$s$G2<$5$$!#(B -plain2 $B$,(B install $B$5$l$F$$$k>l9g!"(Bmake dvi $B$r9T$J$&$3$H$G(B dvi $B$KJQ49$G(B -$B$-$^$9!#(B - - -* $B%P%0Js9p$N;EJ}(B - - tm $B$N%P%0$r8+$D$1$?$i(B fj.editor.emacs $B$K(B post $B$9$k$+!"(Btm ML - $B$K(B mail $B$rAw$C$F2<$5$$!#(B - - tm ML $B$G$O(B tm $B$N%P%0>pJs$N8r49$d:G?7HG$NG[I[!"(Btm $B$N2~NI$K4X$9$k5DO@(B -$B$r9T$J$C$F$$$^$9!#(Btm ML $B$K;22C$7$?$$J}$O(B - - tm-admin@chamonix.jaist.ac.jp - -$B$^$G(B mail $B$rAw$C$F2<$5$$!#EPO?$O $B$N@_Dj$H(B mime.el $B$r;H$C$?(B encode $B$N@_Dj$r9T$J$C$F$/$l(B -$B$^$9!#(B - -[[E ----------------------------------------------------------------------- -(load "mime-setup") ----------------------------------------------------------------------- -]]E - - mime-setup.el $B$OI8=`$G$O(B SuperCite $B$N@_Dj$b9T$J$$$^$9!#$3$l$r$d$a$k(B -$B>l9g(B .emacs $B$K0J2<$N$b$N$rF~$l$F2<$5$$!#(B - -[[E ----------------------------------------------------------------------- -(setq mime-setup-use-sc nil) ----------------------------------------------------------------------- -]]E - - mime-setup $B$G$O(B signature $B$N<+F0@ZBX$((B tool $B$bImB0$7$F$$$^$9!#(B -message header $B$N(B field $B$K9g$o$;$F(B signature $B$N<+F0@ZBX$r9T$J$$$?$$>l(B -$B9g$O(B .emacs $B$K0J2<$N$h$&$J$b$N$rF~$l$F2<$5$$!#(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 $B$r;H$&>l9g$O!"(Bmime.el $B$,I,MW$G$9!#$^$?!"(BSuperCite $B$r;H$&(B -$B>l9g$O!"(BSuperCite $B$bI,MW$G$9!#(B 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.ol b/tm-body-eng.ol deleted file mode 100644 index b6a09d1..0000000 --- a/tm-body-eng.ol +++ /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 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.ol b/tm-body-jp.ol deleted file mode 100644 index 2e0ed5f..0000000 --- a/tm-body-jp.ol +++ /dev/null @@ -1,90 +0,0 @@ -$B!X(Btm-body $B@bL@=q!Y(B -by. $B$C$F(B install $B$r9T$J$C$F2<$5$$!#(B - -** tiny-mime $B$N(B install - - tiny-mime.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B directory $B$K(B -copy $B$7$^$9!#(B - - -** tm-body $B$N(B install - -*** *.el $B$r(B copy $B$9$k(B - - tm-body.el, tl-list.el, tl-header.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;X(B -$BDj$5$l$?(B directory $B$K(B copy $B$7$^$9!#(B - - -*** method $B$r(B copy $B$9$k(B - - methods/ $B$KF~$C$F$$$k!"3F(B Content-Type $B$KBP1~$9$k(B method $B$r!"<+J,$N(B -$B4D6-$K9g$o$;$F=$@5$7!"(Bpath $B$NDL$C$?(B directory $B$K(B copy $B$7$^$9!#(B - - -*** decode-b.c $B$r(B compile $B$9$k(B - - Base64 decoder $B$G$"$k(B decode-b.c $B$r(B gcc $B$G(B compile $B$7$^$9!#(B - -[[E - % gcc -O decode-b.c -o decode-b -]]E - - $B$=$7$F!"=PMh>e$,$C$?(B decode-b $B$r(B path $B$NDL$C$?(B directory $B$K(B copy $B$7(B -$B$^$9!#(B - - $BC"$7!"B>$N(B decoder$B!JNc$($P!"(Bmetamail $BImB0$N(B mmencode $B$J$I!K$,$"$l$P!"(B -method $BCf$N(B decode-b $B$r$=$N(B decoder $B$GCV$-49$($F$b9=$$$^$;$s!#Nc$($P!"(B -decode-b < $B$r(B mmencode -b -u $B$GCV$-49$($F$_$F(B$B2<$5$$!#(B - - -* $B%+%9%?%^%$%:(B - - .emacs $B$K0J2<$N$h$&$J$b$N$rF~$l$F!"3F(B Content-Type $B$KBP1~$9$k(B method -$B$r;XDj$9$k$3$H$,$G$-$^$9!#(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 - - $B3F(B method $B$O(B shell script $B$G=q$-$^$9!#(Btm-body.el $B$+$iEO$5$l$k0z?t$O(B -$B0J2<$NDL$j$G$9!#(B - ------------------------------------------------------------------------- -|$B0z?t(B| $BCM(B | -======================================================================== -| $1 |decode $BA0$N(B file $BL>(B | -| $2 |Content-Type (type/sub-type) | -| $3 |encoding {7bit / quoted-printable / base64 / 8bit / binary / ...}| -| $4 |decoding-mode {play / extract / print} | -| $5 |file $BL>(B | ------------------------------------------------------------------------- - - $B$^$?!"(Bmessage/partial $B$@$1$O(B tm-body.el $B<+?H$GI|85$7$^$9!#(B - - -* $B@)8B(B - - message/external-body $B$K4X$7$F$O8=:_$N$H$3$m%5%]!<%H$7$F$$$^$;$s!#(B - - $BImB0$N(B BASE64 decoder $B$G$"$k(B decode-b.c $B$O$$$$2C8:$J:n$j$J$N$G!"F0$+(B -$B$J$+$C$?$i!"C;$$%W%m%0%i%`$J$N$G!"0U$r5b$s$G=$@5$7$F2<$5$$!#(B(^_^; - - $B$^$?!"(Bmetamail $BImB0$N(B mmencode $B$r;H$C$F(B decode $B$7$F$bNI$$$G$7$g$&!#(B - - $B$^$?!"(BQuoted-Printable $B$N(B decoder $B$OImB0$7$^$;$s$N$G!"(Bmmencode $B$r;H$C(B -$B$F2<$5$$!#(B 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.ol b/tm-gnus-eng.ol deleted file mode 100644 index f5c74bc..0000000 --- a/tm-gnus-eng.ol +++ /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 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.ol b/tm-gnus-jp.ol deleted file mode 100644 index 8927a3f..0000000 --- a/tm-gnus-jp.ol +++ /dev/null @@ -1,182 +0,0 @@ -$B!X(Btm-gnus $B@bL@=q!Y(B -by. $B $B6&DL(B module), tm-gnus $B$N3F(B module $B$+$i(B -$B$J$j$^$9!#3F(B module $BKh$N(B install $BK!$O0J2<$NDL$j$G$9!#(B - - -** tiny-mime $B$N(B install - - tiny-mime.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B directory $B$K(B -copy $B$7$^$9!#(B - - -** tm-body $B$N(B install - - tm-body.el, tl-list.el, tl-header.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;X(B -$BDj$5$l$?(B directory $B$K(B copy $B$7$^$9!#(B - - -** tm-misc $B$N(B install - - tm-misc.el, tl-hook.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B -directory $B$K(B copy $B$7$^$9!#(B - - -** tm-gnus $B$N(B install - - tm-gnus.el $B$H(B tm-gnus3.el $B$r(B Emacs $B$NJQ?t(B load-path $B$G;XDj$5$l$?(B -directory $B$K(B copy $B$7$^$9!#(Btm-gnus3.el $B$r(B byte-compile $B$9$k>l9g$O!"(BGNUS -3 $B$,(B load $B$5$l$?>uBV$G9T$J$C$F2<$5$$!#(B - - - -* $B@_Dj(B - - .emacs $B$K0J2<$N$b$N$rF~$l$^$9!#(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 $B$K$*$1$k>e5-$N@_Dj$O!"(Bgnusutil $B$rJ;MQ$9$k>l9g$N$b$N$G$9$,!"(B -gnusutil $B$rJ;MQ$7$J$$>l9g$O(B (require 'tm-gnus) $B$@$1$G7k9=$G$9!#(B - - -* $B;H$$J}(B - --------------------------------------------------------------------- -| key | $B5!G=(B | -==================================================================== -| M-t |message header $B$r(B decode $B$K4X$9$k(B toggle switch | --------------------------------------------------------------------- -| v |message body $B$r(B MIME decode $B$7$F!":F@8$9$k(B (play mode) | -| e |message body $B$r(B MIME decode $B$7$F!"(Bfile $B$KMn$9(B (extract mode)| -|C-c p|message body $B$r(B MIME decode $B$7$F!"0u:~$9$k(B (print mode) | --------------------------------------------------------------------- - - message body $B$N(B MIME decode $B$K$*$$$F!"l9g(B .emacs $B$K0J2<$N$b$N$rF~$l$F2<$5$$!#(B - -[[E ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -]]E - - metamail $B$r;H$&@_Dj$N>l9g!"(B`v', `e', `C-c p' $B$KBP1~$9$kF0:n$O(B -metamail $B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`o$K!"(BMIME header decoding $B$r9T$J$o(B -$B$J$$!"@8$N(B message $B$GJ]B8$7$?$$>l9g$O(B -(tm-gnus/set-mime-header-decoding-mode nil) $B$r9T$J$C$F!"(BMIME header -decoding $B$r9T$J$o$J$$(B mode $B$K$7$F!"(Barticle save $B4X?t$ruBV$KLa$7$?$$>l9g$O!"(B -$B0J2<$N$h$&$K!"0l;~JQ?t$K(B MIME header decoding mode $B$rJ]B8$7$F$*$1$P(B OK -$B$G$9!#(B - -[[E - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (article save $B4X?t(B) - (tm-gnus/set-mime-header-decoding-mode mm) - ) -]]E - - $B0J2<$K!"(Bmh-e $B$N(B folder $B$K(B save $B$9$k>l9g$NNc$r<($7$^$9!#(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 $B$9$k;~(B Subject $B$N(B encoding $BK!$r(B reply $B85$K9g$o$;$k(B - - Reply $B$9$k;~!"(Breply $B85$N(B Subject $B$K(B ASCII $B0J30$NJ8;z=89g$NF~$C$F$$$k(B -$B>l9g!"(Breply $B85$,(B MIME encode $B$5$l$F$$$?$i(B encode $B$7!"$=$&$G$J$+$C$?$i(B -$B@8$GF~$l$?$$>l9g$O!"$ ¶¦ÄÌ 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 index 67edfe5..0000000 --- a/tm-mh-e-eng.ol +++ /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 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.ol b/tm-mh-e-jp.ol deleted file mode 100644 index 1cc52c0..0000000 --- a/tm-mh-e-jp.ol +++ /dev/null @@ -1,104 +0,0 @@ -$B!X(Btm-mh-e $B@bL@=q!Y(B -by. $Bl9g$O!"(Bmh-e version 3.* $B$r(B load $B$7(B -$B$?>uBV$G9T$J$C$F2<$5$$!#(B - - -* $B@_Dj(B - - mime-setup $B$r;H$C$F2<$5$$!#(B - - mime-setup $B$r;H$o$J$$>l9g$O(B .emacs $B$K0J2<$N$b$N$rF~$l$^$9!#(B - -[[E ----------------------------------------------------------------------- -(if (< (string-to-int emacs-version) 19) - (progn - (require 'tl-18) - (defvar buffer-undo-list nil) - )) - -(add-hook 'mh-folder-mode-hook - (function - (lambda () - (require 'tm-mh-e) - ))) ----------------------------------------------------------------------- -]]E - - $B$^$?!"(BMH $B$,(B MH-6.8JP2 $B$N>l9g!"(B~/.mh_profile $B$K(B - -[[E ----------------------------------------------------------------------- -scan: -form scan.mime -inc: -form inc.mime -repl: -form replcomps.mime -showproc: mhl ----------------------------------------------------------------------- -]]E - -$B$rDI2C$7$F$/$@$5$$!#$^$?!"$=$l0J30$N(B MH $B$N=hM}$O(B Emacs $B$NB&$Gl9g(B .emacs $B$K0J2<$N$b$N$rF~$l$F2<$5$$!#(B - -[[E ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -]]E - - metamail $B$r;H$&@_Dj$N>l9g!"(B`v', `e', `C-c p' $B$KBP1~$9$kF0:n$O(B -metamail $B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`