tm-mh-e-jp.ol

   1 \e$B!X\e(Btm-mh-e \e$B@bL@=q!Y\e(B
   2 by. \e$B<i2,\e(B \e$BCNI'\e(B
   3 1994\e$BG/\e(B8\e$B7n\e(B20\e$BF|\e(B
   4
   5 * install
   6
   7 ** tiny-mime \e$B$N\e(B install
   8
   9   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
  10 copy \e$B$7$^$9!#\e(B
  11
  12
  13 ** tm-body \e$B$N\e(B install
  14
  15   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
  16 \e$BDj$5$l$?\e(B directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
  17
  18
  19 ** tm-misc \e$B$N\e(B install
  20
  21   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
  22 directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
  23
  24
  25 ** tm-mh-e \e$B$N\e(B install
  26
  27   tm-mh-e.el, tm-mh-e3.el \e$B$r\e(B Emacs \e$B$NJQ?t\e(B load-path \e$B$G;XDj$7$?\e(B
  28 directory \e$B$K\e(B copy \e$B$7$^$9!#\e(B
  29
  30   tm-mh-e3.el \e$B$r\e(B byte-compile \e$B$9$k>l9g$O!"\e(Bmh-e version 3.* \e$B$r\e(B load \e$B$7\e(B
  31 \e$B$?>uBV$G9T$J$C$F2<$5$$!#\e(B
  32
  33
  34 * \e$B@_Dj\e(B
  35
  36   mime-setup \e$B$r;H$C$F2<$5$$!#\e(B
  37
  38   mime-setup \e$B$r;H$o$J$$>l9g$O\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$^$9!#\e(B
  39
  40 [[E
  41 ----------------------------------------------------------------------
  42 (if (< (string-to-int emacs-version) 19)
  43     (progn
  44       (require 'tl-18)
  45       (defvar buffer-undo-list nil)
  46       ))
  47
  48 (add-hook 'mh-folder-mode-hook
  49           (function
  50            (lambda ()
  51              (require 'tm-mh-e)
  52              )))
  53 ----------------------------------------------------------------------
  54 ]]E
  55
  56   \e$B$^$?!"\e(BMH \e$B$,\e(B MH-6.8JP2 \e$B$N>l9g!"\e(B~/.mh_profile \e$B$K\e(B
  57
  58 [[E
  59 ----------------------------------------------------------------------
  60 scan:   -form scan.mime
  61 inc:    -form inc.mime
  62 repl:   -form replcomps.mime
  63 showproc: mhl
  64 ----------------------------------------------------------------------
  65 ]]E
  66
  67 \e$B$rDI2C$7$F$/$@$5$$!#$^$?!"$=$l0J30$N\e(B MH \e$B$N=hM}$O\e(B Emacs \e$B$NB&$G<h$j;E@Z\e(B
  68 \e$B$k$N$G!"\e(BMH \e$B$N@_Dj$O$7$J$$$h$&$K$7$F$/$@$5$$!#\e(B
  69
  70
  71 * \e$B;H$$J}\e(B
  72
  73 --------------------------------------------------------------------
  74 | key |                       \e$B5!G=\e(B                                 |
  75 ====================================================================
  76 | M-t |message header \e$B$r\e(B decode \e$B$K4X$9$k\e(B toggle switch             |
  77 --------------------------------------------------------------------
  78 |  v  |message body \e$B$r\e(B MIME decode \e$B$7$F!":F@8$9$k\e(B (play mode)      |
  79 |  e  |message body \e$B$r\e(B MIME decode \e$B$7$F!"\e(Bfile \e$B$KMn$9\e(B (extract mode)|
  80 |C-c p|message body \e$B$r\e(B MIME decode \e$B$7$F!"0u:~$9$k\e(B (print mode)     |
  81 --------------------------------------------------------------------
  82
  83   message body \e$B$N\e(B MIME decode \e$B$K$*$$$F!"<B:]$K3FF0:n$,9T$J$o$l$k$+$I$&\e(B
  84 \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
  85
  86
  87 * metamail \e$B$r;H$&J}K!\e(B
  88
  89   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
  90 \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
  91 \e$B$G$9!#\e(B
  92
  93   \e$B$3$N>l9g\e(B .emacs \e$B$K0J2<$N$b$N$rF~$l$F2<$5$$!#\e(B
  94
  95 [[E
  96 ----------------------------------------------------------------------
  97 (autoload 'metamail-buffer "metamail" nil t)
  98 (setq mime/body-decoding-method (function metamail-buffer))
  99 ----------------------------------------------------------------------
 100 ]]E
 101
 102   metamail \e$B$r;H$&@_Dj$N>l9g!"\e(B`v', `e', `C-c p' \e$B$KBP1~$9$kF0:n$O\e(B
 103 metamail \e$B$K$+$1$k$@$1$K$J$j!"F10l$NF0:n$K$J$j$^$9!#$^$?!"F0:n$OC`<!E*\e(B
 104 \e$B$K$J$j$^$9!#\e(B