+++ /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
-\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
-\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
-\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
-\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
-\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]{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
-\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