tm 7.67.

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

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