1 \e$B!X
\e(Btm-gnus
\e$B@bL@=q!Y
\e(B
2 by.
\e$B<i2,
\e(B
\e$BCNI'
\e(B
3 1994
\e$BG/
\e(B7
\e$B7n
\e(B27
\e$BF|
\e(B
7 *.el
\e$B$r
\e(B Emacs
\e$B$NJQ?t
\e(B load-path
\e$B$G;XDj$5$l$?
\e(B directory
\e$B$K
\e(B copy
\e$B$7$^$9!#
\e(B
8 tm-gnus
\e$B$O!"
\e(Btiny-mime (MIME header encoder/decoder), tm-body (MIME
9 body player), tm-misc (tm-<MUA>
\e$B6&DL
\e(B module), tm-gnus
\e$B$N3F
\e(B module
\e$B$+$i
\e(B
10 \e$B$J$j$^$9!#3F
\e(B module
\e$BKh$N
\e(B install
\e$BK!$O0J2<$NDL$j$G$9!#
\e(B
13 ** tiny-mime
\e$B$N
\e(B install
15 tiny-mime.el
\e$B$r
\e(B Emacs
\e$B$NJQ?t
\e(B load-path
\e$B$G;XDj$5$l$?
\e(B directory
\e$B$K
\e(B
19 ** tm-body
\e$B$N
\e(B install
21 tm-body.el, tl-list.el, tl-header.el
\e$B$r
\e(B Emacs
\e$B$NJQ?t
\e(B load-path
\e$B$G;X
\e(B
22 \e$BDj$5$l$?
\e(B directory
\e$B$K
\e(B copy
\e$B$7$^$9!#
\e(B
25 ** tm-misc
\e$B$N
\e(B install
27 tm-misc.el, tl-hook.el
\e$B$r
\e(B Emacs
\e$B$NJQ?t
\e(B load-path
\e$B$G;XDj$5$l$?
\e(B
28 directory
\e$B$K
\e(B copy
\e$B$7$^$9!#
\e(B
31 ** tm-gnus
\e$B$N
\e(B install
33 tm-gnus.el
\e$B$H
\e(B tm-gnus3.el
\e$B$r
\e(B Emacs
\e$B$NJQ?t
\e(B load-path
\e$B$G;XDj$5$l$?
\e(B
34 directory
\e$B$K
\e(B copy
\e$B$7$^$9!#
\e(Btm-gnus3.el
\e$B$r
\e(B byte-compile
\e$B$9$k>l9g$O!"
\e(BGNUS
35 3
\e$B$,
\e(B load
\e$B$5$l$?>uBV$G9T$J$C$F2<$5$$!#
\e(B
41 .emacs
\e$B$K0J2<$N$b$N$rF~$l$^$9!#
\e(B
44 ----------------------------------------------------------------------
45 (if (not (fboundp 'add-hook))
56 (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
57 (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
58 (autoload 'gnusutil-initialize "gnusutil")
59 (autoload 'gnusutil-add-group "gnusutil")
60 (add-hook 'gnusutil-initialize-hook le)
63 (add-hook 'gnus-Startup-hook le)
64 (add-hook 'gnus-startup-hook le)
66 ----------------------------------------------------------------------
69 Mule
\e$B$K$*$1$k>e5-$N@_Dj$O!"
\e(Bgnusutil
\e$B$rJ;MQ$9$k>l9g$N$b$N$G$9$,!"
\e(B
70 gnusutil
\e$B$rJ;MQ$7$J$$>l9g$O
\e(B (require 'tm-gnus)
\e$B$@$1$G7k9=$G$9!#
\e(B
75 --------------------------------------------------------------------
76 | key |
\e$B5!G=
\e(B |
77 ====================================================================
78 | M-t |message header
\e$B$r
\e(B decode
\e$B$K4X$9$k
\e(B toggle switch |
79 --------------------------------------------------------------------
80 | v |message body
\e$B$r
\e(B MIME decode
\e$B$7$F!":F@8$9$k
\e(B (play mode) |
81 | e |message body
\e$B$r
\e(B MIME decode
\e$B$7$F!"
\e(Bfile
\e$B$KMn$9
\e(B (extract mode)|
82 |C-c p|message body
\e$B$r
\e(B MIME decode
\e$B$7$F!"0u:~$9$k
\e(B (print mode) |
83 --------------------------------------------------------------------
85 message body
\e$B$N
\e(B MIME decode
\e$B$K$*$$$F!"<B:]$K3FF0:n$,9T$J$o$l$k$+$I$&
\e(B
86 \e$B$+$O!"3F
\e(B Content-Type
\e$B$KBP1~$9$k
\e(B tm-body
\e$B$N
\e(B mthod
\e$B$K0MB8$7$^$9!#
\e(B
91 ** metamail
\e$B$r;H$&J}K!
\e(B
93 tm-mh-e
\e$B$O
\e(B MIME body
\e$B$N
\e(B decode
\e$B$K
\e(B tm-body
\e$B$r;H$$$^$9$,!"
\e(Bmetamail
\e$B$r
\e(B
94 \e$B;H$&$h$&$K@_Dj$9$k$3$H$b2DG=$G$9!#C"$7!"
\e(Bmetamail
\e$B$H
\e(B metamail.el
\e$B$,I,MW
\e(B
97 \e$B$3$N>l9g
\e(B .emacs
\e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#
\e(B
100 ----------------------------------------------------------------------
101 (autoload 'metamail-buffer "metamail" nil t)
102 (setq mime/body-decoding-method (function metamail-buffer))
103 ----------------------------------------------------------------------
106 metamail
\e$B$r;H$&@_Dj$N>l9g!"
\e(B`v', `e', `C-c p'
\e$B$KBP1~$9$kF0:n$O
\e(B
107 metamail
\e$B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`<!E*
\e(B
111 ** article
\e$B$r
\e(B save
\e$B$9$k;~
\e(B decoding
\e$B$7$J$$
\e(B
113 article
\e$B$r
\e(B save
\e$B$9$k;~!"J]B8$5$l$k
\e(B message
\e$B$O$=$N;~I=<($5$l$F$$$k$h
\e(B
114 \e$B$&$K!"$=$N;~$N
\e(B MIME header decoding mode
\e$B$K1~$8$F
\e(B save
\e$B$5$l$^$9!#
\e(B
116 \e$B$7$+$7!"
\e(Barticle
\e$B$r
\e(B save
\e$B$9$k;~!">o$K!"
\e(BMIME header decoding
\e$B$r9T$J$o
\e(B
117 \e$B$J$$!"@8$N
\e(B message
\e$B$GJ]B8$7$?$$>l9g$O
\e(B
118 (tm-gnus/set-mime-header-decoding-mode nil)
\e$B$r9T$J$C$F!"
\e(BMIME header
119 decoding
\e$B$r9T$J$o$J$$
\e(B mode
\e$B$K$7$F!"
\e(Barticle save
\e$B4X?t$r<B9T$9$k$h$&$K@_
\e(B
120 \e$BDj$7$F2<$5$$!#
\e(B
122 Save
\e$B$N<B9T8e!"
\e(BMIME header decoding mode
\e$B$rA0$N>uBV$KLa$7$?$$>l9g$O!"
\e(B
123 \e$B0J2<$N$h$&$K!"0l;~JQ?t$K
\e(B MIME header decoding mode
\e$B$rJ]B8$7$F$*$1$P
\e(B OK
127 (let ((mm mime/header-decoding-mode))
128 (tm-gnus/set-mime-header-decoding-mode nil)
129 (article save
\e$B4X?t
\e(B)
130 (tm-gnus/set-mime-header-decoding-mode mm)
134 \e$B0J2<$K!"
\e(Bmh-e
\e$B$N
\e(B folder
\e$B$K
\e(B save
\e$B$9$k>l9g$NNc$r<($7$^$9!#
\e(B
137 ----------------------------------------------------------------------
138 (add-hook 'gnus-Startup-hook
141 (setq gnus-default-article-saver
145 (let ((mm mime/header-decoding-mode))
146 (tm-gnus/set-mime-header-decoding-mode nil)
147 (gnus-Subject-save-in-folder)
148 (tm-gnus/set-mime-header-decoding-mode mm)
150 (add-hook 'gnus-startup-hook
153 (setq gnus-default-article-saver
157 (let ((mm mime/header-decoding-mode))
158 (tm-gnus/set-mime-header-decoding-mode nil)
159 (gnus-summary-save-in-folder)
160 (tm-gnus/set-mime-header-decoding-mode mm)
162 ----------------------------------------------------------------------
166 ** reply
\e$B$9$k;~
\e(B Subject
\e$B$N
\e(B encoding
\e$BK!$r
\e(B reply
\e$B85$K9g$o$;$k
\e(B
168 Reply
\e$B$9$k;~!"
\e(Breply
\e$B85$N
\e(B Subject
\e$B$K
\e(B ASCII
\e$B0J30$NJ8;z=89g$NF~$C$F$$$k
\e(B
169 \e$B>l9g!"
\e(Breply
\e$B85$,
\e(B MIME encode
\e$B$5$l$F$$$?$i
\e(B encode
\e$B$7!"$=$&$G$J$+$C$?$i
\e(B
170 \e$B@8$GF~$l$?$$>l9g$O!"<!$N$h$&$K@_Dj$7$^$9!#
\e(B
173 ----------------------------------------------------------------------
174 (add-hook 'gnus-article-prepare-hook
177 (if (mime/exist-encoded-word-in-subject)
178 (setq mime/no-encoding-header-fields '("X-Nsubject"))
179 (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject"))
181 ----------------------------------------------------------------------