tm-gnus-jp.ol

   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
   4
   5 * Install
   6
   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
  11
  12
  13 ** tiny-mime \e$B$N\e(B install
  14
  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
  16 copy \e$B$7$^$9!#\e(B
  17
  18
  19 ** tm-body \e$B$N\e(B install
  20
  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
  23
  24
  25 ** tm-misc \e$B$N\e(B install
  26
  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
  29
  30
  31 ** tm-gnus \e$B$N\e(B install
  32
  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
  36
  37
  38
  39 * \e$B@_Dj\e(B
  40
  41   .emacs \e$B$K0J2<$N$b$N$rF~$l$^$9!#\e(B
  42
  43 [[E
  44 ----------------------------------------------------------------------
  45 (if (not (fboundp 'add-hook))
  46     (require 'tl-hook)
  47   )
  48
  49 (let ((le (function
  50            (lambda ()
  51              (require 'tm-gnus)
  52              )))
  53       )
  54   (if (boundp 'MULE)
  55       (progn
  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)
  61         )
  62     (progn
  63       (add-hook 'gnus-Startup-hook le)
  64       (add-hook 'gnus-startup-hook le)
  65       )))
  66 ----------------------------------------------------------------------
  67 ]]E
  68
  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
  71
  72
  73 * \e$B;H$$J}\e(B
  74
  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 --------------------------------------------------------------------
  84
  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
  87
  88
  89 * \e$B3F<o@_Dj\e(B
  90
  91 ** metamail \e$B$r;H$&J}K!\e(B
  92
  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
  95 \e$B$G$9!#\e(B
  96
  97   \e$B$3$N>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
  98
  99 [[E
 100 ----------------------------------------------------------------------
 101 (autoload 'metamail-buffer "metamail" nil t)
 102 (setq mime/body-decoding-method (function metamail-buffer))
 103 ----------------------------------------------------------------------
 104 ]]E
 105
 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
 108 \e$B$K$J$j$^$9!#\e(B
 109
 110
 111 ** article \e$B$r\e(B save \e$B$9$k;~\e(B decoding \e$B$7$J$$\e(B
 112
 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
 115
 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
 121
 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
 124 \e$B$G$9!#\e(B
 125
 126 [[E
 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)
 131           )
 132 ]]E
 133
 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
 135
 136 [[E
 137 ----------------------------------------------------------------------
 138 (add-hook 'gnus-Startup-hook
 139           (function
 140            (lambda ()
 141              (setq gnus-default-article-saver
 142                    (function
 143                     (lambda ()
 144                       (interactive)
 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)
 149                         )))))))
 150 (add-hook 'gnus-startup-hook
 151           (function
 152            (lambda ()
 153              (setq gnus-default-article-saver
 154                    (function
 155                     (lambda ()
 156                       (interactive)
 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)
 161                         )))))))
 162 ----------------------------------------------------------------------
 163 ]]E
 164
 165
 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
 167
 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
 171
 172 [[E
 173 ----------------------------------------------------------------------
 174 (add-hook 'gnus-article-prepare-hook
 175           (function
 176            (lambda ()
 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"))
 180                ))))
 181 ----------------------------------------------------------------------
 182 ]]E