+++ /dev/null
-[[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.
+++ /dev/null
-\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}
+++ /dev/null
-\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
+++ /dev/null
-\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}
+++ /dev/null
-\e$B!X\e(Bsignature.el \e$B@bL@=q!Y\e(B
-by. \e$B2,It\e(B \e$B<wCK\e(B
-1994\e$BG/\e(B8\e$B7n\e(B1\e$BF|\e(B
-
- signature.el \e$B$O\e(B signature \e$B$N<+F0@ZBX$(\e(B tool \e$B$G$9!#\e(B*insert-signature*
-\e$B$r9T$&$3$H$K$h$j!"\e(B`signature-insert-at-eof' \e$B$NCM$,\e(B non-nil \e$B$N$H$-%P%C\e(B
-\e$B%U%!$NKvHx$K!"\e(Bnil \e$B$N$H$-$O%+%l%s%H%]%$%s%H$K!"\e(Bsignature \e$B%U%!%$%k$,FI$_\e(B
-\e$B9~$^$l$^$9!#I8=`E*$J\e(Bsignature \e$B$O!"JQ?t\e(B `signature-file-name' \e$B$G;XDj$7\e(B
-\e$B$F2<$5$$\e(B(\e$B%G%U%)%k%HCM$O\e(B "~/.signature")\e$B!#\e(Bmessage header \e$B$N\e(B field \e$B$K9g\e(B
-\e$B$o$;$F\e(B signature \e$B$N<+F0@ZBX$r9T$J$$$?$$>l9g$O\e(B .emacs \e$B$K0J2<$N$h$&$J$b\e(B
-\e$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
-
- \e$B$^$?!"\e(B*insert-signature* \e$B$K?t0z?t$rM?$($k$3$H$K$h$j!"BPOCE*$K\e(B
-`signature-file-name'-DISTRIBUTION \e$B$N7A$NL>A0$r;}$D%U%!%$%k$r;XDj\e(B
-\e$B$9$k$3$H$,$G$-$^$9!#Nc$($P\e(B `C-u C-c C-s'(*insert-signature*) \e$B$H\e(B
-\e$BF~NO$9$k$H!"%_%K%P%C%U%!$G\e(B
-
- Insert your signature: ~/.signature-
-
-\e$B$HJ9$$$F$-$^$9$N$G!"@ZBXMQ$KMQ0U$5$l$?%U%!%$%k$N$J$+$+$i!"5a$a$k$b$N$r\e(B
-\e$B%3%s%W%j!<%7%g%s$r;H$C$FMQ0U$KA*Br$9$k$3$H$,$G$-$^$9!#6uJ8;zNs$r\e(B
-\e$BF~NO$9$l$P!"\e(B`signature-file-name' \e$B$G;XDj$5$l$k%U%!%$%k$,FI$_9~$^$l$^$9!#\e(B
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-signature.el ÀâÌÀ½ñ}
-\author{
-²¬Éô ¼÷ÃË\\
-}
-\date{
-1994ǯ8·î1Æü}
-\maketitle
-\medskip
-\par
-signature.el ¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤Ç¤¹¡£*insert-signature*
-¤ò¹Ô¤¦¤³¤È¤Ë¤è¤ê¡¢`signature-insert-at-eof' ¤ÎÃͤ¬ non-nil ¤Î¤È¤¥Ð¥Ã
-¥Õ¥¡¤ÎËöÈø¤Ë¡¢nil ¤Î¤È¤¤Ï¥«¥ì¥ó¥È¥Ý¥¤¥ó¥È¤Ë¡¢signature ¥Õ¥¡¥¤¥ë¤¬Æɤß
-¹þ¤Þ¤ì¤Þ¤¹¡£É¸½àŪ¤Êsignature ¤Ï¡¢ÊÑ¿ô `signature-file-name' ¤Ç»ØÄꤷ
-¤Æ²¼¤µ¤¤(¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï "\verb+~+/.signature")¡£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
-¤Þ¤¿¡¢*insert-signature* ¤Ë¿ô°ú¿ô¤òÍ¿¤¨¤ë¤³¤È¤Ë¤è¤ê¡¢ÂÐÏÃŪ¤Ë
-`signature-file-name'-DISTRIBUTION ¤Î·Á¤Î̾Á°¤ò»ý¤Ä¥Õ¥¡¥¤¥ë¤ò»ØÄê
-¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£Î㤨¤Ð `C-u C-c C-s'(*insert-signature*) ¤È
-ÆþÎϤ¹¤ë¤È¡¢¥ß¥Ë¥Ð¥Ã¥Õ¥¡¤Ç
-\medskip
-{\list{}{\leftmargin=4ex}\item[]
-\begin{description}
-\item[Insert your signature:]\verb+~+/.signature-
-\medskip
-\end{description}
-\endlist}
-\par
-¤Èʹ¤¤¤Æ¤¤Þ¤¹¤Î¤Ç¡¢ÀÚÂØÍѤËÍÑ°Õ¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¤Ê¤«¤«¤é¡¢µá¤á¤ë¤â¤Î¤ò
-¥³¥ó¥×¥ê¡¼¥·¥ç¥ó¤ò»È¤Ã¤ÆÍÑ°Õ¤ËÁªÂò¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¶õʸ»úÎó¤ò
-ÆþÎϤ¹¤ì¤Ð¡¢`signature-file-name' ¤Ç»ØÄꤵ¤ì¤ë¥Õ¥¡¥¤¥ë¤¬Æɤ߹þ¤Þ¤ì¤Þ¤¹¡£
-\end{document}
+++ /dev/null
-[[R
-\title{tiny-mime manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/4}
-\maketitle
-]]R
-
-* Overview
-
- tiny-mime is a multilingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I
-modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make
-it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But,
-current tiny-mime has following functions:
-
- - unfolding at decoding
- - encoding/decoding multilingual character sets, such as,
- ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
- US-ASCII, EUC-KR
- - B and Q-encoding
-
-
-* character set and encoding
-
-** Mule
-
- Mule can use multilingual text, so in Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, et al.
-
- Additionally, you can add or change encoding/decoding for character
-sets by function mime/set-charset-and-encoding.
-
-** NEmacs and NEpoch
-
- NEmacs can use Japanese and English only, so in NEmacs, tiny-mime
-supports encoding/decoding only ISO-2022-JP and US-ASCII.
-
- And decoding ISO-8859-* encoded-words if they includes only ASCII.
-
-
-* How to use tiny-mime.el (simple way)
-
-** decoding
-
- Please load tiny-mime.el, and do following command on the buffer
-which you want to decode.
-
- M-x mime/decode-message-header
-
- And you can decode region by
-
- M-x mime/decode-region
-
-** encoding
-
- Please load tiny-mime.el, and do following command on the buffer
-which you want to encode.
-
- M-x mime/encode-message-header
-
-
-
-* variables
-
-** mime/no-encoding-header-fields
-
- You can specify list of fields which you don't want to
-encode. Default value is ("X-Nsubject").
-
-example: don't encode Subject and X-Nsubject fields
-
-[[E
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-]]E
-
-
-* How to add or change character sets
-
- In Mule, you can add or change character sets by function
-mime/set-charset-and-encoding.
-
- Function: mime/set-charset-and-encoding lc cs charset encoding
-
- lc: leading-char
- cs: coding-system. Please specify nil if you don't want to use
- coding-system for 1 octet character.
- charset: MIME character set
- encoding: encoding method for encoder
-
-
-example 1: encode EUC-KR B encoding for KS C5601-1987 characters
-
- (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-
-
-example 2: encode/decode koi8-r Q encoding
-
- (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-
-[WARNING] In this version, handling for private character is very ad
-hoc. (^_^; I want to improve.
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{tiny-mime manual (English Version)}
-\author{Morioka Tomohiko}
-\date{1994/8/4}
-\maketitle
-\medskip
-
-\section{Overview}
-\medskip
-\par
-tiny-mime is a multilingual MIME style message header
-encoder/decoder based on RFC 1522 for Mule, NEmacs, and NEpoch. I
-modified Mr.Enami's ISO-2022-JP Base64 MIME header decoder and make
-it. Mr.Enami's program can decode only ISO-2022-JP Base64 header. But,
-current tiny-mime has following functions:
-\medskip
-\begin{itemize}
-\item unfolding at decoding
-\item encoding/decoding multilingual character sets, such as,
-ISO-2022-JP, ISO-2022-JP-2, ISO-2022-CN, ISO-2022-KR, ISO-8859-*,
-US-ASCII, EUC-KR
-\item B and Q-encoding
-\medskip
-\medskip
-\end{itemize}
-
-\section{character set and encoding}
-\medskip
-
-\subsection{Mule}
-\medskip
-\par
-Mule can use multilingual text, so in Mule, tiny-mime supports
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR, et al.
-\medskip
-\par
-Additionally, you can add or change encoding/decoding for character
-sets by function mime/set-charset-and-encoding.
-\medskip
-
-\subsection{NEmacs and NEpoch}
-\medskip
-\par
-NEmacs can use Japanese and English only, so in NEmacs, tiny-mime
-supports encoding/decoding only ISO-2022-JP and US-ASCII.
-\medskip
-\par
-And decoding ISO-8859-* encoded-words if they includes only ASCII.
-\medskip
-\medskip
-
-\section{How to use tiny-mime.el (simple way)}
-\medskip
-
-\subsection{decoding}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Please load tiny-mime.el, and do following command on the buffer
-which you want to decode.
-\end{verbatim}}
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/decode-message-header
-\endlist}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- And you can decode region by
-\end{verbatim}}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- M-x mime/decode-region
-\end{verbatim}}
-\medskip
-
-\subsection{encoding}
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- Please load tiny-mime.el, and do following command on the buffer
-which you want to encode.
-\end{verbatim}}
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/encode-message-header
-\endlist}
-\medskip
-\medskip
-\medskip
-
-\section{variables}
-\medskip
-
-\subsection{mime/no-encoding-header-fields}
-\medskip
-\par
-You can specify list of fields which you don't want to
-encode. Default value is ("X-Nsubject").
-\medskip
-\begin{description}
-\item[example:]don't encode Subject and X-Nsubject fields
-\medskip
-\end{description}
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\medskip
-
-\section{How to add or change character sets}
-\medskip
-\par
-In Mule, you can add or change character sets by function
-mime/set-charset-and-encoding.
-\medskip
-\begin{description}
-\item[Function:]mime/set-charset-and-encoding lc cs charset encoding
-\medskip
-\begin{description}
-\item[lc:]leading-char
-\item[cs:]coding-system. Please specify nil if you don't want to use
-coding-system for 1 octet character.
-\item[charset:]MIME character set
-\item[encoding:]encoding method for encoder
-\medskip
-\medskip
-\end{description}
-\end{description}
-\begin{description}
-\item[example 1:]encode EUC-KR B encoding for KS C5601-1987 characters
-\medskip
-\par
-(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-\medskip
-\medskip
-\item[example 2:]encode/decode koi8-r Q encoding
-\medskip
-\par
-(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-\medskip
-\item[{[}WARNING{]}]In this version, handling for private character is very ad
-hoc. (\verb+^+\_\verb+^+; I want to improve.
-\end{description}
-\end{document}
+++ /dev/null
-\e$B!X\e(Btiny-mime.el \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
-
- \e$B$3$N@bL@=q$O\e(B ol2 \e$B$H\e(B plain2 \e$B$rMQ$$$k$3$H$K$h$C$F\e(B LaTeX \e$B7A<0$KJQ49$9$k\e(B
-\e$B$3$H$,$G$-$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$H$O\e(B
-
- tiny-mime.el \e$B$O\e(B Mule, NEmacs, NEpoch \e$B>e$GF0:n$9$k\e(B MIME message
-header \e$B$N\e(B encoder/decoder \e$B$G$9!#%*%j%8%J%k$O!"@N!"$($J$_\e(B \e$B$D$0$H$b\e(B \e$B$5$s\e(B
-\e$B$,\e(B fj.editor.emacs \e$B$KEj9F$5$l$?\e(B MIME message header \e$B$N\e(B decoder \e$B$G$9!#\e(B
-
- \e$B8=:_$G$O!"Ev;~$N$b$N$KHf$Y!"\e(B
-
- \e$B!&\e(Bdecoding \e$B;~$K$*$1$k\e(B unfolding \e$B5!G=\e(B
- \e$B!&\e(BISO-2022-JP \e$B$K2C$(!"\e(BISO-8859-*, US-ASCII \e$B$J$I$N\e(B encoding/decoding
- \e$B!&\e(BQ-encoding \e$B$N\e(B decoding
-
-\e$B$H$$$C$?5!G=$r;}$C$F$$$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$N%5%]!<%H$9$k\e(B character set, encoding
-
- tiny-mime.el \e$B$O!"<!$N\e(B character set, encoding \e$B$r%5%]!<%H$7$^$9!#\e(B
-
-** Mule
-
- ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR,
-EUC-KR \e$B$J$I$N\e(B encoding/decoding \e$B$r%5%]!<%H$7$^$9!#$^$?!"4X?t\e(B
-mime/set-charset-and-encoding \e$B$GDI2C!&JQ99$,$G$-$^$9!#\e(B
-
-** NEmacs, NEpoch
-
- ISO-2022-JP, US-ASCII \e$B$N\e(B encoding/decoding \e$B$r%5%]!<%H$7$^$9!#\e(B
-
- \e$B$^$?!"\e(BISO-8859-*\e$B$G$"$C$F$b!"\e(Bencoded-text \e$B$K4^$^$l$kJ8;zNs$,<B:]$K$O\e(B
-ASCII \e$B$GI=$;$kHO0O$J$iI=<($7$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$N4JC1$J;H$$J}\e(B
-
-** decode
-
- tiny-mime.el \e$B$r\e(B load \e$B$7$F!"\e(Bdecode \e$B$7$?$$\e(B buffer \e$B>e$G!"\e(B
-
- M-x mime/decode-message-header
-
-\e$B$r<B9T$7$^$9!#\e(B
-
- \e$B$^$?!"\e(Bdecode \e$B$7$?$$\e(B region \e$B$r\e(B
-
- M-x mime/decode-region
-
-\e$B$G\e(B decode \e$B$9$k$3$H$,$G$-$^$9!#0zMQ$J$I$G\e(B body-part \e$B$K;D$C$?\e(B
-encoded-word \e$B$r\e(B decode \e$B$9$k$N$KJXMx$G$7$g$&!#\e(B
-
-** encode
-
- tiny-mime.el \e$B$r\e(B load \e$B$7$F!"\e(Bencode \e$B$7$?$$\e(B buffer \e$B>e$G!"\e(B
-
- M-x mime/encode-message-header
-
-\e$B$r<B9T$7$^$9!#\e(B
-
-
-* tiny-mime.el \e$B$NJQ?t\e(B
-
-** mime/no-encoding-header-fields
-
- tiny-mime.el \e$B$G\e(B encode \e$B$7$J$$\e(B message header \e$B$N\e(B field \e$B$r;XDj$7$^$9!#\e(B
-
- default \e$B$G$O\e(B X-Nsubject \e$B$,;XDj$5$l$F$$$^$9!#\e(B
-
-\e$BNc!'\e(B X-Nsubject \e$B$H\e(B Subject \e$B$r\e(B encode \e$B$7$J$$$h$&$K$9$k!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-]]E
-
-\e$B!NCm0U!O\e(B mime.el \e$B$HJ;MQ$9$k>l9g!"\e(Btiny-mime.el \e$B$,\e(B encode \e$B$7$J$/$F$b!"\e(B
-mime.el \e$B$,\e(B encode \e$B$9$k$N$G!"\e(Bmime.el \e$B$N\e(B message header encoder \e$B$,F/$+$J\e(B
-\e$B$$$h$&$K$K@_Dj$7$^$9!#\e(B
-
-** mime/use-X-Nsubject
-
- \e$B$3$NJQ?t$NCM$,\e(B t \e$B$N>l9g!"\e(Bmessage header \e$B$r\e(B encode \e$B$9$k;~!"\e(Bencode \e$B$7\e(B
-\e$B$?7k2L!"\e(BSubject \e$B$K\e(B encoded-word \e$B$,4^$^$l$k>l9g!"\e(BSubject \e$B$r\e(B decode \e$B$7$?\e(B
-\e$B$b$N$rF~$l$?\e(B X-Nsubject \e$B$r:n@.$7$^$9!#\e(B
-
- default \e$B$G$O\e(B nil \e$B$,;XDj$5$l$F$$$^$9!#\e(B
-
-\e$B!NCm0U!O\e(BMule \e$B$G\e(B ISO-2022-JP \e$B$K4^$^$l$k$b$N0J30$NJ8;z=89g$r;H$&>l9g$O!"\e(B
-\e$B$3$l$r;XDj$7$J$$J}$,8-L@$G$9!#\e(B
-
-** mail-header-separator
-
- \e$B4X?t\e(B mime/encode-message-header \e$B$K$*$1$k\e(B message header \e$B$H\e(B body part
-\e$B$N6h@Z$j$rI=$9JQ?t$G$9!#Nc$($P!"\e(BGNUS \e$B$G$O\e(B "--text follows this line--"
-\e$B$,;XDj$5$l$^$9!#\e(B
-
-\e$B!NCm0U!O$3$NJQ?t$NJ8;zNs$O!"\e(Bversion 2.6 \e$B$h$j@55,I=8=$G$O$J$/$J$j$^$7$?!#\e(B
-
-
-* mailer, news reader \e$B$X$NAH$_9~$_\e(B
-
- \e$BF|>oE*$K!"L50U<1$K\e(B MIME header \e$B$rK\Mh$N8@8l$G8+$?$$$H$$$&$N$OEvA3$N\e(B
-\e$BM_5a$G$9!#$=$3$G!"\e(Btiny-mime.el \e$B$r\e(B mailer \e$B$d\e(B news reader \e$B$KAH$_9~$`$H<+\e(B
-\e$BF0E*$K\e(B MIME header \e$B$N\e(B encode/decode \e$B$,$G$-$^$9!#\e(B
-
- \e$B$^$?!"\e(Bmetamail \e$B$r;H$C$F$*$i$l$kJ}$G$b!"IaCJ$O\e(B message header \e$B$N\e(B
-decode \e$B$@$1$GNI$/$F!"3($d2;$J$I$r:F@8$9$k;~$@$1\e(B metamail \e$B$r;H$&$H$$$&\e(B
-\e$B$h$&$J;H$$J}$b$G$-$^$9!#\e(B
-
- \e$B$3$NL\E*$r<B8=$9$k$K$O!"\e(Bmailer \e$B$d\e(B news reader \e$B$NE,@Z$J\e(B hook \e$B$K\e(B
-mime/decode-message-header \e$B$rF~$l$l$PNI$$$G$7$g$&!#$^$?!"J8;zNs$N\e(B
-decode \e$B$r$7$?$$>l9g$N$?$a$K!"\e(B
-
- (mime/decode-string \e$BJ8;zNs\e(B)
-
-\e$B$H$$$&4X?t$bMQ0U$7$F$$$^$9!#\e(B
-
- GNUS \e$B$H\e(B mh-e \e$B$K4X$7$F$O!"\e(Btm-gnus, tm-mh-e \e$B$H$$$&\e(B MIME \e$BBP1~2=%b%8%e!<\e(B
-\e$B%k$rMQ0U$7$F$$$^$9!#\e(B
-
- \e$B$3$l$i$N!"3F\e(B MUA \e$B$KBP1~$9$k%b%8%e!<%k$r\e(B load \e$B$9$k$H\e(B tiny-mime.el \e$B$K\e(B
-\e$B$h$k\e(B MIME header \e$B$NI|85$H\e(B tm-body \e$B$rMxMQ$7$?\e(B MIME body \e$B$N:F@8$,9T$J$(\e(B
-\e$B$^$9!#\e(B
-
- \e$B>\$7$/$O!"$=$l$>$l$N@bL@=q$r$*FI$_2<$5$$!#\e(B
-
-
-* mime.el \e$B$H$NJ;MQ\e(B
-
- mime.el \e$B$HJ;MQ$9$kNc$r<($7$^$9!#$3$NNc$N>l9g!"\e(BISO-2022-JP \e$BJ8;zNs$N\e(B
-encode \e$B$O\e(B tiny-mime.el \e$B$,9T$J$$!"$=$l0J30$NJ8;z=89g$KB0$9$kJ8;zNs$O\e(B
-mime.el \e$B$,\e(B encode \e$B$7$^$9!#\e(B
-
- \e$B$^$?!"\e(Btiny-mime.el \e$B$,\e(B encode \e$B$7$J$+$C$?J8;zNs$b\e(B mime.el \e$B$,\e(B encode \e$B$9\e(B
-\e$B$k$N$G!"7k2LE*$K!"I,$:A4$F$N\e(B field \e$B$,\e(B encode \e$B$5$l$k$3$H$KCm0U$7$F2<$5\e(B
-\e$B$$!#\e(B
-
-[[E
-----------------------------------------------------------------------
-;;;
-;;; for Edit MIME mode
-;;;
-(autoload 'mime-mode "mime" "Edit MIME message." t)
-(autoload 'mime-convert-buffer "mime" "convert to MIME." t)
-(autoload 'insert-signature "signature" "Insert signature" t)
-(add-hook 'mime-mode-hook
- (function
- (lambda ()
- (define-key (current-local-map)
- "\C-c\C-s" (function insert-signature))
- )))
-
-;; MIME header \e$B$N\e(B encoder \e$B$r\e(B tiny-mime \e$B$N$b$N$r;H$&!#\e(B
-(setq mime-translate-hook 'mime/encode-message-header)
-
-;;;
-;;; for GNUS
-;;;
-(add-hook 'news-reply-mode-hook (function mime-mode))
-(setq gnus-signature-file nil)
-
-;;;
-;;; for mh-e
-;;;
-(add-hook 'mh-letter-mode-hook
- (function
- (lambda ()
- (mime/decode-message-header)
- (mime-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------"))
- ))
-----------------------------------------------------------------------
-]]E
-
-** \e$BFCDj$N\e(B field \e$B$r\e(B encode \e$B$7$?$/$J$$>l9g\e(B
-
- \e$BFCDj$N\e(B field \e$B$r\e(B encode \e$B$7$?$/$J$$>l9g!"\e(Btiny-mime.el \e$B$NJQ?t\e(B
-mime/no-encoding-header-fields \e$B$K$h$C$F!"\e(Btiny-mime.el \e$B$K$h$k\e(B encode \e$B$r\e(B
-\e$B$d$a$k$3$H$,$G$-$^$9$,!"\e(Bmime.el \e$B$,\e(B encode \e$B$9$k$N$G$O0UL#$,$"$j$^$;$s!#\e(B
-\e$B$=$3$G!"<!$N$h$&$K@_Dj$9$k$3$H$G!"\e(Bmime.el \e$B$G$b\e(B encode \e$B$7$J$$$h$&$K$G$-\e(B
-\e$B$^$9!#\e(B
-
-[[E
-----------------------------------------------------------------------
-(if (boundp 'MULE)
- (progn
- (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end)
- (let ((lclist (find-charset-region begin end)))
- (cond ((null lclist) nil) ;US-ASCII requres no encoding.
- ((memq lc-ltn1 lclist)
- '("ISO-8859-1" . "Q"))
- ((memq lc-ltn2 lclist)
- '("ISO-8859-2" . "Q"))
- ((memq lc-ltn3 lclist)
- '("ISO-8859-3" . "Q"))
- ((memq lc-ltn4 lclist)
- '("ISO-8859-4" . "Q"))
- ((memq lc-crl lclist)
- '("ISO-8859-5" . "Q"))
- ;;((memq lc-arb lclist)
- ;; '("ISO-8859-6" . "Q"))
- ((memq lc-grk lclist)
- '("ISO-8859-7" . "Q"))
- ((memq lc-hbw lclist)
- '("ISO-8859-8" . "Q"))
- ((memq lc-ltn5 lclist)
- '("ISO-8859-9" . "Q"))
- ((memq lc-jp lclist) nil)
- (t ;Unknown charset. It must be Mule!
- '("ISO-2022-JP-2" . "B"))
- )))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP)
- )
- (progn
- (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)
- ))
-----------------------------------------------------------------------
-]]E
-
- \e$BMW$9$k$K!"\e(BISO-2022-JP \e$BJ8;zNs$N\e(B encode \e$B$r\e(B mime.el \e$B$K$5$;$J$/$9$kLu$G\e(B
-\e$B$9!#\e(B
-
-
-* charset \e$B$NDI2C!&JQ99\e(B
-
- Mule \e$B$G$O!"4X?t\e(B mime/set-charset-and-encoding \e$B$G!"\e(Bcharset \e$B$NDI2C!&JQ\e(B
-\e$B99$,$G$-$^$9!#\e(B
-
- \e$B4X?t\e(B: mime/set-charset-and-encoding lc cs charset encoding
-
- lc: charset \e$B$KBP1~$9$k\e(B leading-char \e$B$r;XDj$9$k!#\e(B
- cs: charset \e$B$KBP1~$9$k\e(B coding-system \e$B$r;XDj$9$k!#\e(B1 octet \e$BJ8;z\e(B
- \e$B=89g$G\e(B coding-system \e$B$r:n$i$J$$>l9g$O!"\e(Bnil \e$B$r;XDj$9$k!#\e(B
- charset: MIME \e$B$N\e(B charset.
- encoding: encode \e$B$9$k:]$N\e(B encoding.
-
-
- \e$BNc!'\e(B KS C5601-1987 \e$B$r\e(B EUC-KR \e$B$N\e(B B encoding \e$B$9$k$h$&$K@_Dj$9$k\e(B
-
- (mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-
-
- \e$BNc!'\e(B koi8-r \e$B$r\e(B Q encoding \e$B$9$k$h$&$K@_Dj$9$k!#\e(B
-
- (mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-
-
-\e$B!NCm0U!O8=:_$N$H$3$m!"\e(Bprivate character \e$B$N@_Dj$OFq$"$j$G$9!#\e(B(^_^;
+++ /dev/null
-\documentstyle[a4j]{jarticle}
-\setcounter{secnumdepth}{6}
-\setcounter{tocdepth}{6}
-\topsep=0.1cm
-\parsep=0.1cm
-\itemsep=0.0cm
-\begin{document}
-\title{
-tiny-mime.el ÀâÌÀ½ñ}
-\author{
-¼é²¬ ÃÎɧ\\
-}
-\date{
-1994ǯ7·î27Æü}
-\maketitle
-\medskip
-\par
-¤³¤ÎÀâÌÀ½ñ¤Ï ol2 ¤È plain2 ¤òÍѤ¤¤ë¤³¤È¤Ë¤è¤Ã¤Æ LaTeX ·Á¼°¤ËÊÑ´¹¤¹¤ë
-¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤È¤Ï}
-\medskip
-\par
-tiny-mime.el ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME message
-header ¤Î encoder/decoder ¤Ç¤¹¡£¥ª¥ê¥¸¥Ê¥ë¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó
-¤¬ fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ MIME message header ¤Î decoder ¤Ç¤¹¡£
-\medskip
-\par
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢
-\medskip
-\begin{itemize}
-\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½
-\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-8859-*, US-ASCII ¤Ê¤É¤Î encoding/decoding
-\item Q-encoding ¤Î decoding
-\medskip
-\end{itemize}
-\par
-¤È¤¤¤Ã¤¿µ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤Î¥µ¥Ý¡¼¥È¤¹¤ë character set, encoding}
-\medskip
-\par
-tiny-mime.el ¤Ï¡¢¼¡¤Î character set, encoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-\medskip
-
-\subsection{Mule}
-\medskip
-\par
-ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR,
-EUC-KR ¤Ê¤É¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-
-\subsection{NEmacs, NEpoch}
-\medskip
-\par
-ISO-2022-JP, US-ASCII ¤Î encoding/decoding ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢ISO-8859-*¤Ç¤¢¤Ã¤Æ¤â¡¢encoded-text ¤Ë´Þ¤Þ¤ì¤ëʸ»úÎ󤬼ºݤˤÏ
-ASCII ¤Çɽ¤»¤ëÈϰϤʤéɽ¼¨¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤Î´Êñ¤Ê»È¤¤Êý}
-\medskip
-
-\subsection{decode}
-\medskip
-\par
-tiny-mime.el ¤ò load ¤·¤Æ¡¢decode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/decode-message-header
-\endlist}
-\medskip
-\par
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢decode ¤·¤¿¤¤ region ¤ò
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
- M-x mime/decode-region
-\end{verbatim}}
-\medskip
-\par
-¤Ç decode ¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£°úÍÑ¤Ê¤É¤Ç body-part ¤Ë»Ä¤Ã¤¿
-encoded-word ¤ò decode ¤¹¤ë¤Î¤ËÊØÍø¤Ç¤·¤ç¤¦¡£
-\medskip
-
-\subsection{encode}
-\medskip
-\par
-tiny-mime.el ¤ò load ¤·¤Æ¡¢encode ¤·¤¿¤¤ buffer ¾å¤Ç¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x mime/encode-message-header
-\endlist}
-\medskip
-\par
-¤ò¼Â¹Ô¤·¤Þ¤¹¡£
-\medskip
-\medskip
-
-\section{tiny-mime.el ¤ÎÊÑ¿ô}
-\medskip
-
-\subsection{mime/no-encoding-header-fields}
-\medskip
-\par
-tiny-mime.el ¤Ç encode ¤·¤Ê¤¤ message header ¤Î field ¤ò»ØÄꤷ¤Þ¤¹¡£
-\medskip
-\par
-default ¤Ç¤Ï X-Nsubject ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-Î㡧 X-Nsubject ¤È Subject ¤ò encode ¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-¡ÎÃí°Õ¡Ï mime.el ¤ÈÊ»ÍѤ¹¤ë¾ì¹ç¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤¯¤Æ¤â¡¢
-mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¡¢mime.el ¤Î message header encoder ¤¬Æ¯¤«¤Ê
-¤¤¤è¤¦¤Ë¤ËÀßÄꤷ¤Þ¤¹¡£
-\medskip
-
-\subsection{mime/use-X-Nsubject}
-\medskip
-\par
-¤³¤ÎÊÑ¿ô¤ÎÃͤ¬ t ¤Î¾ì¹ç¡¢message header ¤ò encode ¤¹¤ë»þ¡¢encode ¤·
-¤¿·ë²Ì¡¢Subject ¤Ë encoded-word ¤¬´Þ¤Þ¤ì¤ë¾ì¹ç¡¢Subject ¤ò decode ¤·¤¿
-¤â¤Î¤òÆþ¤ì¤¿ X-Nsubject ¤òºîÀ®¤·¤Þ¤¹¡£
-\medskip
-\par
-default ¤Ç¤Ï nil ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-¡ÎÃí°Õ¡ÏMule ¤Ç ISO-2022-JP ¤Ë´Þ¤Þ¤ì¤ë¤â¤Î°Ê³°¤Îʸ»ú½¸¹ç¤ò»È¤¦¾ì¹ç¤Ï¡¢
-¤³¤ì¤ò»ØÄꤷ¤Ê¤¤Êý¤¬¸ÌÀ¤Ç¤¹¡£
-\medskip
-
-\subsection{mail-header-separator}
-\medskip
-\par
-´Ø¿ô mime/encode-message-header ¤Ë¤ª¤±¤ë message header ¤È body part
-¤Î¶èÀÚ¤ê¤òɽ¤¹ÊÑ¿ô¤Ç¤¹¡£Î㤨¤Ð¡¢GNUS ¤Ç¤Ï "--text follows this line--"
-¤¬»ØÄꤵ¤ì¤Þ¤¹¡£
-\medskip
-\par
-¡ÎÃí°Õ¡Ï¤³¤ÎÊÑ¿ô¤Îʸ»úÎó¤Ï¡¢version 2.6 ¤è¤êÀµµ¬É½¸½¤Ç¤Ï¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¡£
-\medskip
-\medskip
-
-\section{mailer, news reader ¤Ø¤ÎÁȤ߹þ¤ß}
-\medskip
-\par
-Æü¾ïŪ¤Ë¡¢Ìµ°Õ¼±¤Ë MIME header ¤òËÜÍè¤Î¸À¸ì¤Ç¸«¤¿¤¤¤È¤¤¤¦¤Î¤ÏÅöÁ³¤Î
-Íßµá¤Ç¤¹¡£¤½¤³¤Ç¡¢tiny-mime.el ¤ò mailer ¤ä news reader ¤ËÁȤ߹þ¤à¤È¼«
-ưŪ¤Ë MIME header ¤Î encode/decode ¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢metamail ¤ò»È¤Ã¤Æ¤ª¤é¤ì¤ëÊý¤Ç¤â¡¢ÉáÃÊ¤Ï message header ¤Î
-decode ¤À¤±¤ÇÎɤ¯¤Æ¡¢³¨¤ä²»¤Ê¤É¤òºÆÀ¸¤¹¤ë»þ¤À¤± metamail ¤ò»È¤¦¤È¤¤¤¦
-¤è¤¦¤Ê»È¤¤Êý¤â¤Ç¤¤Þ¤¹¡£
-\medskip
-\par
-¤³¤ÎÌÜŪ¤ò¼Â¸½¤¹¤ë¤Ë¤Ï¡¢mailer ¤ä news reader ¤ÎŬÀÚ¤Ê hook ¤Ë
-mime/decode-message-header ¤òÆþ¤ì¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¡£¤Þ¤¿¡¢Ê¸»úÎó¤Î
-decode ¤ò¤·¤¿¤¤¾ì¹ç¤Î¤¿¤á¤Ë¡¢
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/decode-string ʸ»úÎó)
-\endlist}
-\medskip
-\par
-¤È¤¤¤¦´Ø¿ô¤âÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-GNUS ¤È mh-e ¤Ë´Ø¤·¤Æ¤Ï¡¢tm-gnus, tm-mh-e ¤È¤¤¤¦ MIME Âбþ²½¥â¥¸¥å¡¼
-¥ë¤òÍÑ°Õ¤·¤Æ¤¤¤Þ¤¹¡£
-\medskip
-\par
-¤³¤ì¤é¤Î¡¢³Æ MUA ¤ËÂбþ¤¹¤ë¥â¥¸¥å¡¼¥ë¤ò load ¤¹¤ë¤È tiny-mime.el ¤Ë
-¤è¤ë MIME header ¤ÎÉü¸µ¤È tm-body ¤òÍøÍѤ·¤¿ MIME body ¤ÎºÆÀ¸¤¬¹Ô¤Ê¤¨
-¤Þ¤¹¡£
-\medskip
-\par
-¾Ü¤·¤¯¤Ï¡¢¤½¤ì¤¾¤ì¤ÎÀâÌÀ½ñ¤ò¤ªÆɤ߲¼¤µ¤¤¡£
-\medskip
-\medskip
-
-\section{mime.el ¤È¤ÎÊ»ÍÑ}
-\medskip
-\par
-mime.el ¤ÈÊ»ÍѤ¹¤ëÎã¤ò¼¨¤·¤Þ¤¹¡£¤³¤ÎÎã¤Î¾ì¹ç¡¢ISO-2022-JP ʸ»úÎó¤Î
-encode ¤Ï tiny-mime.el ¤¬¹Ô¤Ê¤¤¡¢¤½¤ì°Ê³°¤Îʸ»ú½¸¹ç¤Ë°¤¹¤ëʸ»úÎó¤Ï
-mime.el ¤¬ encode ¤·¤Þ¤¹¡£
-\medskip
-\par
-¤Þ¤¿¡¢tiny-mime.el ¤¬ encode ¤·¤Ê¤«¤Ã¤¿Ê¸»úÎó¤â mime.el ¤¬ encode ¤¹
-¤ë¤Î¤Ç¡¢·ë²ÌŪ¤Ë¡¢É¬¤ºÁ´¤Æ¤Î field ¤¬ encode ¤µ¤ì¤ë¤³¤È¤ËÃí°Õ¤·¤Æ²¼¤µ
-¤¤¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-;;;
-;;; for Edit MIME mode
-;;;
-(autoload 'mime-mode "mime" "Edit MIME message." t)
-(autoload 'mime-convert-buffer "mime" "convert to MIME." t)
-(autoload 'insert-signature "signature" "Insert signature" t)
-(add-hook 'mime-mode-hook
- (function
- (lambda ()
- (define-key (current-local-map)
- "\C-c\C-s" (function insert-signature))
- )))
-
-;; MIME header ¤Î encoder ¤ò tiny-mime ¤Î¤â¤Î¤ò»È¤¦¡£
-(setq mime-translate-hook 'mime/encode-message-header)
-
-;;;
-;;; for GNUS
-;;;
-(add-hook 'news-reply-mode-hook (function mime-mode))
-(setq gnus-signature-file nil)
-
-;;;
-;;; for mh-e
-;;;
-(add-hook 'mh-letter-mode-hook
- (function
- (lambda ()
- (mime/decode-message-header)
- (mime-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------"))
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-
-\subsection{ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç}
-\medskip
-\par
-ÆÃÄê¤Î field ¤ò encode ¤·¤¿¤¯¤Ê¤¤¾ì¹ç¡¢tiny-mime.el ¤ÎÊÑ¿ô
-mime/no-encoding-header-fields ¤Ë¤è¤Ã¤Æ¡¢tiny-mime.el ¤Ë¤è¤ë encode ¤ò
-¤ä¤á¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¤¬¡¢mime.el ¤¬ encode ¤¹¤ë¤Î¤Ç¤Ï°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£
-¤½¤³¤Ç¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤Ç¡¢mime.el ¤Ç¤â encode ¤·¤Ê¤¤¤è¤¦¤Ë¤Ç¤
-¤Þ¤¹¡£
-\medskip
-{\baselineskip=10pt
-\begin{verbatim}
-----------------------------------------------------------------------
-(if (boundp 'MULE)
- (progn
- (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end)
- (let ((lclist (find-charset-region begin end)))
- (cond ((null lclist) nil) ;US-ASCII requres no encoding.
- ((memq lc-ltn1 lclist)
- '("ISO-8859-1" . "Q"))
- ((memq lc-ltn2 lclist)
- '("ISO-8859-2" . "Q"))
- ((memq lc-ltn3 lclist)
- '("ISO-8859-3" . "Q"))
- ((memq lc-ltn4 lclist)
- '("ISO-8859-4" . "Q"))
- ((memq lc-crl lclist)
- '("ISO-8859-5" . "Q"))
- ;;((memq lc-arb lclist)
- ;; '("ISO-8859-6" . "Q"))
- ((memq lc-grk lclist)
- '("ISO-8859-7" . "Q"))
- ((memq lc-hbw lclist)
- '("ISO-8859-8" . "Q"))
- ((memq lc-ltn5 lclist)
- '("ISO-8859-9" . "Q"))
- ((memq lc-jp lclist) nil)
- (t ;Unknown charset. It must be Mule!
- '("ISO-2022-JP-2" . "B"))
- )))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP)
- )
- (progn
- (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end))
- (setq mime-header-charset-chooser
- 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)
- ))
-----------------------------------------------------------------------
-\end{verbatim}}
-\medskip
-\par
-Íפ¹¤ë¤Ë¡¢ISO-2022-JP ʸ»úÎó¤Î encode ¤ò mime.el ¤Ë¤µ¤»¤Ê¤¯¤¹¤ëÌõ¤Ç
-¤¹¡£
-\medskip
-\medskip
-
-\section{charset ¤ÎÄɲá¦Êѹ¹}
-\medskip
-\par
-Mule ¤Ç¤Ï¡¢´Ø¿ô mime/set-charset-and-encoding ¤Ç¡¢charset ¤ÎÄɲá¦ÊÑ
-¹¹¤¬¤Ç¤¤Þ¤¹¡£
-\medskip
-\begin{description}
-\item[´Ø¿ô:]mime/set-charset-and-encoding lc cs charset encoding
-\medskip
-\begin{description}
-\item[lc:]charset ¤ËÂбþ¤¹¤ë leading-char ¤ò»ØÄꤹ¤ë¡£
-\item[cs:]charset ¤ËÂбþ¤¹¤ë coding-system ¤ò»ØÄꤹ¤ë¡£1 octet ʸ»ú
-½¸¹ç¤Ç coding-system ¤òºî¤é¤Ê¤¤¾ì¹ç¤Ï¡¢nil ¤ò»ØÄꤹ¤ë¡£
-\item[charset:]MIME ¤Î charset.
-\item[encoding:]encode ¤¹¤ëºÝ¤Î encoding.
-\medskip
-\medskip
-\end{description}
-\end{description}
-\par
-Î㡧 KS C5601-1987 ¤ò EUC-KR ¤Î B encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/set-charset-and-encoding lc-kr *euc-kr* "EUC-KR" "B")
-\endlist}
-\medskip
-\medskip
-\par
-Î㡧 koi8-r ¤ò Q encoding ¤¹¤ë¤è¤¦¤ËÀßÄꤹ¤ë¡£
-\medskip
-{\list{}{\leftmargin=8ex}\item[]
-\par
-(mime/set-charset-and-encoding lc-prv11 nil "KOI8-R" "Q")
-\endlist}
-\medskip
-\medskip
-\par
-¡ÎÃí°Õ¡Ï¸½ºß¤Î¤È¤³¤í¡¢private character ¤ÎÀßÄê¤ÏÆñ¤¢¤ê¤Ç¤¹¡£(\verb+^+\_\verb+^+;
-\end{document}
+++ /dev/null
-[[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.
+++ /dev/null
-\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}
+++ /dev/null
-\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
+++ /dev/null
-\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}
+++ /dev/null
-;;;
-;;; $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)
- ))
+++ /dev/null
-\e$B2,It!w5~Bg$G$9!#\e(B
-
-In article <199408221831.DAA24174@melon.jaist.ac.jp>,
- \e$B<i2,\e(B \e$BCNI'\e(B (MORIOKA Tomohiko) <morioka@jaist.ac.jp> writes:
-
-\e$B<i2,\e(B> \e$B8=<BF(Hr$7$F!"Bg$-$J\e(B message \e$B$rH/Aw$9$k;~!"<+F0E*$K\e(B message/partial
-\e$B<i2,\e(B> \e$B7A<0$KJ,3d$7$F$/$l$k$b$N$r=q$-$^$7$?!#\e(B
-
-\e$BJXMx$J$N$G!"$9$3$72~NI\e(B(\e$B2~0-!)\e(B)\e$B$7$F$_$^$7$?!#\e(B
-
-1. mime-mode-exit \e$B$r>r7oIU$-$G8F$V$h$&$K$7!"\e(Bmime-mode \e$B0J30$G$b\e(B
- \e$B;H$($k$h$&$K$7$?!#\e(B
-
- \e$B:G6a\e(B mh-e 4.1 \e$B$N\e(B mh-edit-mhn \e$B$b;H$C$F$_$F$$$k$N$G!"\e(Bmime-mode \e$B0J30$G$b\e(B
- \e$B;H$($k$h$&$K$7$?$H$$$&$N$,F05!$G$9!#6KC<$K8@$($PIaCJ$O\e(B MIME \e$B$rA4A3;H$C$F\e(B
- \e$B$$$J$$?M$G$b!"<+F0J,3d$K$O;H$($k$H;W$$$^$9!#\e(B
-
-\e$B!t\e(B mh-edit-mhn \e$B$GJQ49$7$?8e\e(B mime/view-mode \e$B$KF~$C$F%W%l%S%e!<$7!"\e(B
- \e$B$&$^$/$$$C$F$J$+$C$?$i\e(B mh-revert-mhn-edit \e$B$G$d$jD>$9!"$H$$$&\e(B
- \e$B<j=g$O\e(B mime-mode \e$B$H\e(B metamail-* \e$B$h$j$O2wE,$G$9!#\e(B
-
-2. \e$B%X%C%@$H%\%G%#$N6h@Z$j$,6u9T$N>l9g$K$bBP1~$7$?!#\e(B
-
- mh-edit-mhn \e$B$N=PNO$O$3$N7A<0$J$N$G!"$d$`$rF@$:$=$&$7$^$7$?!#\e(B
-
-3. mime/draft-file-name \e$B$,\e(B nil \e$B$N$H$-$K;H$&%U%!%$%kL>$r0J2<$N$h$&$K$7$?!#\e(B
-
- (make-temp-name (expand-file-name "tm-draft" mime/tmp-dir))
-
-4. \e$BJ,3d$7$?%a%C%;!<%8$K$O!"$b$H$N\e(B Subject \e$B$N$&$7$m$K\e(B (1/3) \e$B$J$I$H$D$/\e(B
- \e$B$h$&$K$7$?!#\e(B
-
- \e$B6a$$>-Mh!"\e(Bsuper-pipe \e$B$d\e(B gnus-uu \e$B$N$h$&$K!"\e(Bmessage/partial \e$B$N$H$-$O$I\e(B
- \e$B$l$+$R$H$D$N5-;v$r$_$l$PB>$N$rC5$7$K9T$/5!G=$,\e(B tm-view.el \e$B$K<BAu$5$l$k\e(B
- \e$B$3$H$r4j$C$F$N$3$H$G$9\e(B ^_^
-
-
-
-\e$B$^$@5$$KF~$i$J$$E@$G$9$,!"\e(B
-
-1. \e$B$b$H$N\e(B(\e$B=q$-$+$1$N\e(B)\e$B%a%C%;!<%8$N%X%C%@$r$=$N$^$^Aw$C$F$7$^$&$N$G!"\e(B
- \e$BNc$($P\e(B MH \e$B$N>l9g!"\e(BBcc:, Dcc: Fcc: \e$B$J$IK\MhAw$C$?;~$K>C$($k\e(B
- \e$B$O$:$N$b$N$,FO$$$F$7$^$&\e(B(\e$B$H$/$K\e(B Bcc: \e$B$,8+$($k$N$OLdBj\e(B)\e$B!#\e(B
- \e$B1#$9%U%#!<%k%I$r;XDj$G$-$k$h$&$K$9$Y$-!#\e(B
-
-2. \e$B@8@.$5$l$k\e(B id \e$B$,D9$C$?$i$7$/$F$+$C$30-$$!#\e(B
- (\e$BNc$($P\e(B GNUS \e$B$N\e(B message-id \e$B@8@.%k!<%A%s$rE>MQ$7$F$O$I$&$+\e(B)
-
-\e$B$J$I$,$"$j$^$9!#\e(B
-
-\e$B<i2,\e(B> \e$B$^$?!"\e(Bmessage \e$B$N:GBg9T?t$rJQ?t\e(B mime/message-max-length \e$B$G;XDj$G$-$^\e(B
-\e$B<i2,\e(B> \e$B$9!#$H$j$"$($:!"\e(Bdefault \e$B$G$O\e(B 1000 \e$B9T$K$7$F$"$j$^$9$,!"$3$l$K4X$9$k0lHL\e(B
-\e$B<i2,\e(B> \e$BE*$JCM$O$"$k$s$G$7$g$&$+!)\e(B
-
-\e$B9T?t$h$j$O%P%$%H?t$,Bg;v$J$O$:$G!"$h$/8@$o$l$k$N$O\e(B1\e$BDL$"$?$j\e(B50KB\e$B$rD6$(\e(B
-\e$B$J$$$h$&$K$H$$$&@)Ls$G$9$M\e(B(\e$B$&$A$N%;%s%?!<$NMxMQ$N<j0z$K$b$=$&=q$$$F$"\e(B
-\e$B$j$^$7$?\e(B)\e$B!#5pBg$J%a!<%k$NB?$/$O%P%$%J%j%U%!%$%k$NE>Aw$G!"Cf?H$O\e(B base64
-\e$B$G0l9T\e(B80\e$B;z<e$K$J$C$F$$$k$H2>Dj$9$k$H!"\e(B600 \e$B9T6/$K$"$?$j$^$9!#$7$+$7\e(B50KB
-\e$B0J>e$N$b$N$ODL$i$J$$$h$&$K$J$C$F$$$k$H$$$&$o$1$G$O$J$/C1$K0BA4$d8zN($r\e(B
-\e$B9M$($F$NCM$G$7$g$&$+$i!"\e(Bsplit \e$B$NI8=`CM$G$b$"$k\e(B 1000 \e$B$GLdBj$J$$$H;W$$$^$9!#\e(B
------
-\e$B2,It<wCK!w5~ETBg3XBg7?7W;;5!%;%s%?!<8&5f3+H/It\e(B
+++ /dev/null
-[[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.
+++ /dev/null
-\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}
+++ /dev/null
-\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
+++ /dev/null
-\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}
+++ /dev/null
-\documentstyle[a4j]{jreport}
-
-\title{tm ÀâÌÀ½ñ}
-\author{¼é²¬ ÃÎɧ\\
- morioka@jaist.ac.jp}
-\date{\verb$Id: tm-jp.tex,v 5.1 1994/09/26 14:52:00 morioka Exp $}
-
-\begin{document}
-
-\maketitle
-\tableofcontents
-
-\chapter{¤Ï¤¸¤á¤Ë}
-
-tm ¤Ï GNU Emacs ¤Ç MIME ¤ò³Ú¤·¤à¤¿¤á¤Î package ¤Ç¤¹¡£tm ¤ò»È¤¦¤È¡¢
-
-\begin{itemize}
-\item ¿¸À¸ì header ¤Î encode/decode
-\item mime/viewer-mode ¤ò»È¤Ã¤¿ MIME message ¤Î±ÜÍ÷¡¦ºÆÀ¸
-\item mh-e, GNUS, RMAIL ¤Ç¤Î MIME µ¡Ç½¤Î¶¯²½
-\end{itemize}
-
-\noindent ¤¬¹Ô¤Ê¤¨¤Þ¤¹¡£
-
-
-\section{Module °ìÍ÷}
-
-tm ¤Ï°Ê²¼¤Î module ¤«¤é¤Ê¤ê¤Þ¤¹¡£
-
-\begin{itemize}
-\item {\bf tiny-mime} : MIME header encoder/decoder
-\item {\bf tm-view} : MIME viewer
-\item {\bf tm-misc} : tm-MUA ¤Î¶¦ÄÌ module
-\item {\bf tm-MUAs} : MUA ¤Î MIME µ¡Ç½¶¯²½ module
- \begin{itemize}
- \item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
- \item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
- \item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
- \end{itemize}
-\item {\bf tm-setup} tm-MUA ¤ÎÀßÄê module
-\item {\bf mime-setup} MIME ´Ø·¸¤ÎÀßÄê module
-\end{itemize}
-
-
-\chapter{Emacs version Ê̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â}
-
-\section{Emacs (original)}
-
-Original ¤Î Emacs ¤Ç¤Ï¡¢ÅöÁ³¤Î¤³¤È¤Ê¤¬¤é¡¢Ã±°ìʸ»ú½¸¹ç¤·¤«»È¤¨¤Þ¤»¤ó¡£
-
-\section{NEmacs, NEpoch}
-
-NEmacs ¤Ç¤Ï¡¢ISO-2022-JP ¤ª¤è¤Ó US-ASCII ¤¬»È¤¨¤Þ¤¹¡£
-
-\begin{description}
-\item[¡ÎÃí°Õ¡Ï] outline.el ¤Ï NEmacs Éí°¤Î¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢outln-18.el
- ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el
- ¤Ë link ¤òÄ¥¤ë¤«¡¢rename ¤·¤Æ²¼¤µ¤¤¡£
-
- outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë
-
-\begin{verbatim}
-(provide 'outline)
-\end{verbatim}
-
- \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\end{description}
-
-
-\section{Mule}
-
-ISO-2022-JP, ISO-2022-JP-2, US-ASCII, ISO-8859-1..9, ISO-2022-CN,
-ISO-2022-KR, EUC-KR ¤Ê¤É¤Î¿¸À¸ì header ¤¬»È¤¨¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-
-\begin{description}
-\item[¡ÎÃí°Õ¡Ï] Emacs 18 base ¤Î Mule (Mule 1.1 ¤Ê¤É¡Ë¤Ç¤Ï¡¢Mule Éí°
- ¤Î outline.el ¤ÎÂå¤ï¤ê¤Ëoutln-18.el ¤ò»È¤¦¤³¤È¤ò¿ä¾©¤·¤Þ¤¹¡£
- outln-18.el ¤ò»È¤¦¾ì¹ç¤Ï¡¢¤³¤ì¤ò outline.el ¤Ë link ¤òÄ¥¤ë¤«¡¢rename
- ¤·¤Æ²¼¤µ¤¤¡£
-
- outln-18.el ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢outline.el ¤Ë
-
-\begin{verbatim}
-(provide 'outline)
-\end{verbatim}
-
- \noindent ¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-\end{description}
-
-
-\chapter{Install ¤ÈÀßÄê}
-
-\section{Install}
-
-Install ¤Ï¼¡¤Î¼ê½ç¤Ç¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\begin{enumerate}
-\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶¤Ë¹ç¤ï¤»¤Æ½ñ¤´¹¤¨¤ë¡£
-\item methods/ °Ê²¼¤Ë¤¢¤ë method script ¤ò \ref{sec:method} Àá¤ò»²¾È¤·
- ¤Æ¡¢¼«Ê¬¤Î´Ä¶¤Ë¹ç¤¦¤è¤¦¤Ë½ñ¤´¹¤¨¤ë¡£
-\item make all ¤¹¤ë¡£
-\item make install ¤¹¤ë¡£
-\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£
-\end{enumerate}
-
-\noindent{\bf [Ãí°Õ]}
-\begin{itemize}
-\item tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load
- ¤·¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS 3 ¤¬ load ¤µ¤ì¤¿¾õ
- Â֤ǹԤʤäƲ¼¤µ¤¤¡£
-\item tl-18.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Emacs 18 ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-orig.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢original Emacs ¤Ç¹Ô¤Ê¤Ã¤Æ
- ²¼¤µ¤¤¡£
-\item tl-nemacs.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢NEmacs ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item tl-mule.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢Mule ¤Ç¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£
-\item Emacs 19 ¤Ç byte-compile ¤·¤¿ module ¤Ï Emacs 18 ¤Ç¤ÏÆ°¤¤Þ¤»¤ó¡£
-\end{itemize}
-
-
-\section{ÀßÄê}
-
-¤³¤Î package ¤Ë¤Ï mime-setup.el ¤È tm-setup.el ¤È¤¤¤¦´Ê°×ÀßÄê file ¤¬
-Éí°¤·¤Æ¤¤¤Þ¤¹¡£mime-setup.el ¤Ç¤Ï encoding ¤â´Þ¤á¤¿ÀßÄê¤ò¹Ô¤Ê¤¤¡¢
-tm-setup ¤Ç¤Ï tm-MUA ¤Ë´Ø¤¹¤ëÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£
-
-\subsection{mime-setup}
-
-\begin{verbatim}
-(load "mime-setup")
-\end{verbatim}
-
-\noindent ¤È¤¹¤ë¤È MIME ¤Ë´Ø¤¹¤ë³Æ¼ïÀßÄê¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£mime-setup ¤Ï
-tm-setup ¤òÆɤó¤Ç¤¤¤ë¤Î¤Ç¡¢mime-setup ¤ò»È¤¦¾ì¹ç¡¢tm-setup ¤ò load ¤¹
-¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¡£
-
-mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë¾ì
-¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
-
-\begin{verbatim}
-(setq mime-setup-use-sc nil)
-\end{verbatim}
-
-mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£
-message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì
-¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£¡Ê¾Ü¤·¤¯¤Ï signature.el
-¤ÎÀâÌÀ½ñ¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡Ë
-
-\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}
-
-mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦¾ì
-¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£
-
-
-\subsection{tm-setup}
-
-tm-setup ¤Ï tm-MUA ¤ÎÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¦ module ¤Ç¤¹¡£mime-setup ¤ò load
-¤·¤Æ¤¤¤ë¾ì¹ç¡¢¤³¤ì¤òÍÛ¤Ë load ¤¹¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¤¬¡¢mime-setup ¤ò»È
-¤¤¤¿¤¯¤Ê¤¤¾ì¹ç¡¢°Ê²¼¤Î¤è¤¦¤Ë¤³¤ì¤ò load ¤·¤Æ²¼¤µ¤¤¡£
-
-\begin{verbatim}
-(load "tm-setup")
-\end{verbatim}
-
-
-\subsection{ÀßÄê file ¤ò»È¤ï¤Ê¤¤¾ì¹ç}
-
-tm-setup.el ¤ò»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£
-
-
-\subsection{MH ¤ÎÀßÄê}
-
-¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢.mh\_profile ¤Ë
-
-\begin{verbatim}
-scan: -form scan.mime
-inc: -form inc.mime
-repl: -form replcomps.mime
-showproc: mhl
-\end{verbatim}
-
-\noindent ¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦
-¤Ç¼è¤ê»ÅÀÚ¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
-
-
-\chapter{tm-MUA}
-
-``tm-MUA'' ¤È¤¤¤¦¤Î¤Ï¡¢mh-e, GNUS, RMAIL ¤Ê¤É¤Î MUA ¤Î¤¿¤á¤Î MIME µ¡Ç½
-¶¯²½ module ¤ÎÁí¾Î¤Ç¤¹¡£
-
-¸½ºß¡¢tm-MUA ¤Ë¤Ï¡¢
-
-\begin{itemize}
-\item {\bf tm-mh-e} : mh-e ÍѤΠtm-MUA
-\item {\bf tm-gnus} : GNUS ÍѤΠtm-MUA
-\item {\bf tm-rmail} : RMAIL ÍѤΠtm-MUA
-\end{itemize}
-
-\noindent ¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¾Ï¤Ç¤Ï¤³¤ì¤é¤Î module ¤Ë´Ø¤·¤ÆÀâÌÀ¤·¤Þ¤¹¡£
-
-
-\section{Summary mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢¸µ¤Î MUA ¤Î Summary mode ¤ËÂФ·¤Æ°Ê²¼¤Îµ¡Ç½¤¬Äɲ䵤ì
-¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- M-t & MIME header ¤Î decode ¤Ë´Ø¤¹¤ë toggle \\
- v & ËÜʸ¤ËÆþ¤ê¡¢mime/view-mode ¤Ë°Ü¤ë \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-
-\section{mime/viewer-mode}
-\label{sec:mime/viewer-mode}
-
-tm-MUA ¤ò»È¤¦¤È¡¢Summary mode ¤Ç {\bf v} ¤ò²¡¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢
-mime/viewer-mode ¤È¤¤¤¦ MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Î mode ¤ËÆþ¤ê¤Þ¤¹
-¡Ê⤷¡¢vm ¤Ç¤Ï°ã¤¦ key ¤Ë bind ¤·¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¡Ë¡£mime/viewer-mode
-¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|l|l|}\hline
- key & µ¡Ç½ \\ \hline
- u & ¾å¤Î content ¤ËÌá¤ë \\
- & message ¤Î°ìÈÖ¾å¤Î content ¤Ç¤³¤ì¤ò¹Ô¤Ê¤¦¤È Summary mode
- ¤ËÌá¤ë (*1) \\
- p & Á°¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- n & ¼¡¤Î content ¤Ë°ÜÆ°¤¹¤ë \\
- SPC & scroll up ¤¹¤ë \\
- M-SPC & scroll down ¤¹¤ë \\
- v & content ¤òºÆÀ¸¤¹¤ë (*2) \\
- e & content ¤«¤é file ¤ò¼è¤ê½Ð¤¹ (*2) \\
- C-c C-p & content ¤ò°õºþ¤¹¤ë (*2) \\ \hline
- \end{tabular}
-\end{center}
-\medskip
-
-\bigskip
-
-\newcounter{asteriskcount}
-\noindent{\bf ¡ÎÃí°Õ¡Ï}
-\vspace{-1ex}
-{\list{(*\arabic{asteriskcount})}{\usecounter{asteriskcount}\leftmargin=8ex}
-\item tm-mh-e, tm-gnus, tm-rmail ¤Ê¤É¤Ç tm-view ¤ÎÀßÄê¤ò¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢
- Summary mode ¤Ë¤ÏÌá¤ê¤Þ¤»¤ó¡£
-\item ¼ÂºÝ¤ÎÆ°ºî¤ÏÂбþ¤¹¤ë method ¤Ë°Í¤ê¤Þ¤¹¡£
-\endlist}
-
-
-\section{tm-gnus ¤Î customize}
-
-\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
-
-article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦
-¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
-
-¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï¤Ê
-¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï¡¢ÊÑ¿ô
-tm-gnus/set-mime-header-decoding-mode ¤ÎÃͤò nil ¤Ë¤·¤Æ¡¢MIME header
-decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
-Äꤷ¤Æ²¼¤µ¤¤¡£
-
-Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
-°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
-¤Ç¤¹¡£
-
-\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}
-
-°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
-
-\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}
-
-\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
-
-Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
-¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
-À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
-
-\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}
-
-
-\chapter{tm-view}
-
-tm-view ¤Ï MIME message ¤ò±ÜÍ÷¤¹¤ë¤¿¤á¤Îµ¡Ç½¤òÄ󶡤¹¤ë module ¤Ç¤¹¡£
-tm-view ¤Ï mime/viewer-mode ¤È¤¤¤¦ mode ¤òÄ󶡤·¤Þ¤¹¡£
-
-mime/viewer-mode ¤Îµ¡Ç½¤Ë´Ø¤·¤Æ¤Ï¡¢\ref{sec:mime/viewer-mode} Àá¤ò»²¾È
-¤·¤Æ²¼¤µ¤¤¡£
-
-\section{content ¤Î decode ¾ò·ï¤ÎÀßÄê}
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï decode »þ¤Î method ¤ò»ØÄꤹ¤ë
-¤¿¤á¤ÎÊÑ¿ô¤Ç¡¢tm-view 4 ¤ÎÊÑ¿ô mime/content-decoding-method-alist ¤ËÁê
-Åö¤·¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-method-alist ¤Ç¤Ï¡¢Ã±¤Ë
-content-type/subtype ¤ËÂФ¹¤ë method ¤ò»ØÄꤹ¤ë¤³¤È¤·¤«¤Ç¤¤Þ¤»¤ó¤Ç¤·
-¤¿¤¬¡¢ÊÑ¿ô mime/content-decoding-condition ¤Ç¤Ï decode »þ¤ÎÀ©Ìó¾ò·ï¤ò
-½ñ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-
-ÊÑ¿ô mime/content-decoding-condition ¤Ï¡¢
-
-\begin{eqnarray*}
- (¾ò·ï_1 \;\; ¾ò·ï_2 \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤¿ list ¤Ç¡¢³Æ¾ò·ï¤Ï
-
-\begin{eqnarray*}
- ((field-type_1 \; . \; value_1) \;\;
- (field-type_2 \; . \; value_2) \;\; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ÎÏ¢ÁÛ list ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-Î㤨¤Ð¡¢text/plain ¤Î»þ¡¢tm-plain ¤òµ¯Æ°¤¹¤ë»þ¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-\end{quote}
-
-\noindent ¤È¤¤¤¦¾ò·ï¤ò½ñ¤¤Þ¤¹¡£¸«¤Æ¤ÎÄ̤ꡢ³°Éô method ¤Î°ú¿ô¤¬½ñ¤±¤ë
-¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¾Ü¤·¤¯¤Ï \ref{sec:method-arguments} Àá¤Ç½Ò¤Ù¤Þ¤¹¡£
-
-¤³¤Î¾ò·ï¤Ï text/plain ¤Ç¤¢¤ë content ¤Ê¤éÁ´¤Æ¤Î decoding-mode ¤Ç͸ú¤Ç
-¤¹¡£¤·¤«¤·¡¢
-
-\begin{quote}
- ((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢play mode °Ê³°¤Ç¤Ï͸ú¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
-
-µÕ¤Ë¡¢
-
-\begin{quote}
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
- (mode . "play"))
-\end{quote}
-
-\noindent ¤Ê¤é¡¢Á´¤Æ¤Î content-type ¤Î play mode ¤Ç͸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
-
-¤³¤¦¤·¤Æ³Æ¾ò·ï¤òÁ°¤«¤é¸«¤Æ¹Ô¤¡¢ºÇ½é¤Ë͸ú¤Ë¤Ê¤Ã¤¿¾ò·ï¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£
-
-
-\subsection{method ¤Î°ú¿ô¤Î»ØÄê¤Î»ÅÊý}
-\label{sec:method-arguments}
-
-¾ò·ï¤Î method field ¤Ï
-
-\begin{eqnarray*}
- (method \; . \; SYMBOL)
-\end{eqnarray*}
-
-\noindent ¤«
-
-\begin{eqnarray*}
- (method \; ʸ»úÎó \; FLAG \; °ú¿ô_1 \; °ú¿ô_2 \; ...)
-\end{eqnarray*}
-
-\noindent ¤È¤¤¤¦·Á¤ò¤·¤Æ¤¤¤Þ¤¹¡£
-
-method field ¤ÎÃͤ¬ symbol ¤Ç¤¢¤ë¾ì¹ç¤Ï¡¢ÆâÉô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ
-¤¹¡£
-
-method field ¤ÎÃͤ¬ list ¤Ç¤¢¤ë¾ì¹ç¡¢³°Éô method ¤È¤·¤Æµ¯Æ°¤µ¤ì¤Þ¤¹¡£
-¤³¤Î¾ì¹ç¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&³°Éô method ¤Î̾Á° \\
- FLAG&:& t ¤Ê¤é content header ¤â³°Éô method ¤ËÅϤ¹¡£
- nil ¤Ê¤é content body ¤Î¤ß¤òÅϤ¹¡£\\
- °ú¿ôÎó&:&³°Éô method ¤Î°ú¿ô
- \end{tabular}
-\end{quote}
-
-\noindent ¤È²ò¼á¤µ¤ì¤Þ¤¹¡£
-
-¤Þ¤¿¡¢³°Éô method ¤Î°ú¿ô¤Ï¼¡¤Î¤è¤¦¤Ê·Á¼°¤Ç½ñ¤¤Þ¤¹¡£
-
-\begin{quote}
- \begin{tabular}{lcl}
- ʸ»úÎó&:&¤½¤Îʸ»úÎó¤òÅϤ¹ \\
- 'SYMBOL&:&SYMBOL ¤ò key ¤È¤·¤¿ÃͤòÅϤ¹\\
- 'ʸ»úÎó&:&ʸ»úÎó¤ò key ¤È¤·¤¿ÃͤòÅϤ¹
- \end{tabular}
-\end{quote}
-
-'SYMBOL ¤Ç»ØÄê¤Ç¤¤ë¤â¤Î¤Ë¤Ï¡¢
-
-\begin{quote}
- \begin{tabular}{lcl}
- 'file&:&content ¤òÅϤ¹¤¿¤á¤Î file ̾ \\
- 'type&:&content-type/sub-type ̾ \\
- 'encoding&:&content-transfer-encoding \\
- 'mode&:&decoding mode \\
- 'name&:&file ¤ËÍ¾ì¹ç¤Î file ̾
- \end{tabular}
-\end{quote}
-
-\noindent ¤Ê¤É¤¬¤¢¤ê¡¢'ʸ»úÎó ¤Ç¤Ï Content-Type field ¤Î parameter ¤Î
-Ãͤ¬»ØÄê¤Ç¤¤Þ¤¹¡£
-
-
-\subsection{Îã}
-
-½é´üÃͤϰʲ¼¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
-
-\begin{verbatim}
-(defvar mime/content-decoding-condition
- '(((type . "text/plain")
- (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
- ((type . "text/x-latex")
- (method "tm-latex" nil 'file 'type 'encoding 'mode 'name))
- ((type . "audio/basic")
- (method "tm-au" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/gif")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/jpeg")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/tiff")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/x-tiff")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/x-xbm")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "image/x-pic")
- (method "tm-image" nil 'file 'type 'encoding 'mode 'name))
- ((type . "video/mpeg")`
- (method "tm-mpeg" nil 'file 'type 'encoding 'mode 'name))
- ((type . "application/octet-stream")
- (method "tm-file" nil 'file 'type 'encoding 'mode 'name))
- ((type . "message/partial")
- (method . mime/decode-message/partial-region))
- ((method "metamail" t
- "-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play"))
- ))
-\end{verbatim}
-
-Î㤨¤Ð¡¢¡ÖÁ´Éô metamail »È¤¦¤ó¤ä¡×¤È¤¤¤¦¾ì¹ç¡¢
-
-\begin{verbatim}
-(setq mime/content-decoding-condition
- '(
- ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file))
- ))
-\end{verbatim}
-
-\noindent ¤È¤¹¤ì¤Ð OK ¤Ç¤¹¡£
-
-¹©Éפ¹¤ì¤Ð¡¢¤«¤Ê¤êÊ£»¨¤Ê¾ò·ï¤¬½ñ¤±¤ë¤Ç¤·¤ç¤¦¡£
-
-
-\section{method script}
-\label{sec:method}
-
-³Æ method ¤Ï shell script ¤Ç½ñ¤¤Þ¤¹¡£tm-verw.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï¡¢
-ÊÑ¿ô mime/content-decoding-condition ¤Ç»ØÄê¤Ç¤¤Þ¤¹¤¬¡¢É¸½àŪ¤Ê°ú¿ôÎó
-¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
-
-\medskip
-\begin{center}
- \begin{tabular}{|c|l|} \hline
- °ú¿ô & \multicolumn{1}{|c|}{ ÃÍ }\\ \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
-
-¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-view.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£
-
-
-\section{À©¸Â}
-
-Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤«¤Ê
-¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£
-(\verb+^+\_\verb+^+;
-
-¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£
-
-¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã
-¤Æ²¼¤µ¤¤¡£
-
-
-\chapter{tiny-mime}
-
-tiny-mime ¤Ï Mule, NEmacs, NEpoch ¾å¤ÇÆ°ºî¤¹¤ë MIME header ¤Î
-encoder/decoder ¤Ç¤¹¡£tiny-mime ¤Ï¡¢ÀΡ¢¤¨¤Ê¤ß ¤Ä¤°¤È¤â ¤µ¤ó¤¬
-fj.editor.emacs ¤ËÅê¹Æ¤µ¤ì¤¿ ISO-2022-JP MIME header decoder ¤ò¸µ¤Ë¤·
-¤Æ¤¤¤Þ¤¹¡£
-
-¸½ºß¤Ç¤Ï¡¢Åö»þ¤Î¤â¤Î¤ËÈæ¤Ù¡¢
-
-\begin{itemize}
-\item decoding »þ¤Ë¤ª¤±¤ë unfolding µ¡Ç½¤ÎÄɲÃ
-\item ISO-2022-JP ¤Ë²Ã¤¨¡¢ISO-2022-KR, ISO-8859-*, US-ASCII ¤Ê¤É¤Î¿¸À
- ¸ì header ¤Î encode/decode µ¡Ç½¤ÎÄɲÃ
-\item Q-encoding ¤ÎÄɲÃ
-\item RFC 1522 ¤Ø¤ÎÂбþ
-\end{itemize}
-
-\noindent ¤È¤¤¤Ã¤¿µ¡Ç½¶¯²½¤¬¹Ô¤Ê¤ï¤ì¤Æ¤¤¤Þ¤¹¡£
-
-tiny-mime ¤Ï tm ¤Ë¤ª¤±¤ë MIME header encoder/decoder ¤Ç¤¢¤ê¡¢tm-view,
-tm-MUA ¤¬¤³¤ì¤òÍøÍѤ·¤Æ¤¤¤Þ¤¹¡£
-
-
-\section{mime/decode-message-header}
-
-{\tt mime/decode-message-header} ¤Ï MIME header ¤ò decode ¤¹¤ë¤¿¤á¤ÎÌ¿
-Îá¤Ç¤¹¡£tiny-mime ¤¬ load ¤µ¤ì¤Æ¤¤¤ë¾õÂ֤ǡ¢decode ¤·¤¿¤¤ buffer ¤Î¾å
-¤Ç¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-message-header}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤½¤Î buffer ¾å¤Î MIME header ¤¬ decode ¤µ¤ì¤Þ
-¤¹¡£
-
-tm-MUA ¤ä tm-view ¤Ï¤³¤ÎÌ¿Îá¤ò¸Æ¤ó¤Ç¤¤¤ë¤Î¤Ç¡¢¤³¤ì¤é¤òÍøÍѤ·¤Æ¤¤¤ë¾ì¹ç¡¢
-Íۤˤ³¤ÎÌ¿Îá¤ò¼Â¹Ô¤¹¤ëɬÍפÏ̵¤¤¤Ç¤·¤ç¤¦¡£
-
-
-\section{mime/decode-region}
-
-region ¤ËÂФ·¤Æ¡¢
-
-{\list{}{\leftmargin=8ex}\item[]
-\par
-M-x {\tt mime/decode-region}
-\endlist}
-
-\noindent ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ç¡¢°úÍÑ¤Ê¤É¤Ç buffer ¤Ë»Ä¤Ã¤¿ MIME header ¤ò
-decode ¤Ç¤¤Þ¤¹¡£
-
-
-\chapter{¥Ð¥°Êó¹ð¤Î»ÅÊý}
-
-tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML
-$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£
-
-tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ¤ò
-¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï
-
-\begin{center}
- tm-admin@chamonix.jaist.ac.jp
-\end{center}
-
-\noindent ¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤¤ì¤Ð¡¢¼«Á³
-¸À¸ì¤Ç½ñ¤¤¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+)
-
-\end{document}
+++ /dev/null
-[[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.
+++ /dev/null
-\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}
+++ /dev/null
-\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
+++ /dev/null
-\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}
projects / elisp / tm.git / commitdiff