1 \documentstyle[a4j]{jarticle}
2 \setcounter{secnumdepth}{6}
3 \setcounter{tocdepth}{6}
21 *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
22 tm-gnus ¤Ï¡¢tiny-mime (MIME header encoder/decoder), tm-body (MIME
23 body player), tm-misc (tm-$<$MUA$>$ ¶¦ÄÌ module), tm-gnus ¤Î³Æ module ¤«¤é
24 ¤Ê¤ê¤Þ¤¹¡£³Æ module Ëè¤Î install Ë¡¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
28 \subsection{tiny-mime ¤Î install}
31 tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë
36 \subsection{tm-body ¤Î install}
39 tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø
40 Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£
44 \subsection{tm-misc ¤Î install}
47 tm-misc.el, tl-hook.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
48 directory ¤Ë copy ¤·¤Þ¤¹¡£
52 \subsection{tm-gnus ¤Î install}
55 tm-gnus.el ¤È tm-gnus3.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿
56 directory ¤Ë copy ¤·¤Þ¤¹¡£tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS
57 3 ¤¬ load ¤µ¤ì¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£
65 .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£
69 ----------------------------------------------------------------------
70 (if (not (fboundp 'add-hook))
81 (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
82 (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
83 (autoload 'gnusutil-initialize "gnusutil")
84 (autoload 'gnusutil-add-group "gnusutil")
85 (add-hook 'gnusutil-initialize-hook le)
88 (add-hook 'gnus-Startup-hook le)
89 (add-hook 'gnus-startup-hook le)
91 ----------------------------------------------------------------------
95 Mule ¤Ë¤ª¤±¤ë¾åµ¤ÎÀßÄê¤Ï¡¢gnusutil ¤òÊ»ÍѤ¹¤ë¾ì¹ç¤Î¤â¤Î¤Ç¤¹¤¬¡¢
96 gnusutil ¤òÊ»ÍѤ·¤Ê¤¤¾ì¹ç¤Ï (require 'tm-gnus) ¤À¤±¤Ç·ë¹½¤Ç¤¹¡£
103 \begin{tabular}{|c|c|}
107 M-t & message header ¤ò decode ¤Ë´Ø¤¹¤ë toggle switch \\
109 v & message body ¤ò MIME decode ¤·¤Æ¡¢ºÆÀ¸¤¹¤ë (play mode) \\
110 e & message body ¤ò MIME decode ¤·¤Æ¡¢file ¤ËÍ (extract mode)\\
111 C-c p & message body ¤ò MIME decode ¤·¤Æ¡¢°õºþ¤¹¤ë (print mode) \\
116 message body ¤Î MIME decode ¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë³ÆÆ°ºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤«¤É¤¦
117 ¤«¤Ï¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë tm-body ¤Î mthod ¤Ë°Í¸¤·¤Þ¤¹¡£
124 \subsection{metamail ¤ò»È¤¦ÊýË¡}
127 tm-mh-e ¤Ï MIME body ¤Î decode ¤Ë tm-body ¤ò»È¤¤¤Þ¤¹¤¬¡¢metamail ¤ò
128 »È¤¦¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤â²Äǽ¤Ç¤¹¡£Ã¢¤·¡¢metamail ¤È metamail.el ¤¬É¬Í×
132 ¤³¤Î¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£
136 ----------------------------------------------------------------------
137 (autoload 'metamail-buffer "metamail" nil t)
138 (setq mime/body-decoding-method (function metamail-buffer))
139 ----------------------------------------------------------------------
143 metamail ¤ò»È¤¦ÀßÄê¤Î¾ì¹ç¡¢`v', `e', `C-c p' ¤ËÂбþ¤¹¤ëÆ°ºî¤Ï
144 metamail ¤Ë¤«¤±¤ë¤À¤±¤Ë¤Ê¤ê¡¢Æ±°ì¤ÎÆ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Æ°ºî¤ÏÃ༡Ū
149 \subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤}
152 article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è
153 ¤¦¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£
156 ¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï
157 ¤Ê¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï
158 (tm-gnus/set-mime-header-decoding-mode nil) ¤ò¹Ô¤Ê¤Ã¤Æ¡¢MIME header
159 decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß
163 Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢
164 °Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK
169 (let ((mm mime/header-decoding-mode))
170 (tm-gnus/set-mime-header-decoding-mode nil)
172 (tm-gnus/set-mime-header-decoding-mode mm)
177 °Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£
181 ----------------------------------------------------------------------
182 (add-hook 'gnus-Startup-hook
185 (setq gnus-default-article-saver
189 (let ((mm mime/header-decoding-mode))
190 (tm-gnus/set-mime-header-decoding-mode nil)
191 (gnus-Subject-save-in-folder)
192 (tm-gnus/set-mime-header-decoding-mode mm)
194 (add-hook 'gnus-startup-hook
197 (setq gnus-default-article-saver
201 (let ((mm mime/header-decoding-mode))
202 (tm-gnus/set-mime-header-decoding-mode nil)
203 (gnus-summary-save-in-folder)
204 (tm-gnus/set-mime-header-decoding-mode mm)
206 ----------------------------------------------------------------------
211 \subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë}
214 Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë
215 ¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é
216 À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£
220 ----------------------------------------------------------------------
221 (add-hook 'gnus-article-prepare-hook
224 (if (mime/exist-encoded-word-in-subject)
225 (setq mime/no-encoding-header-fields '("X-Nsubject"))
226 (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
228 ----------------------------------------------------------------------