This commit was generated by cvs2svn to compensate for changes in r434,

[elisp/tm.git] / tm-jp.tex

\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}