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

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

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