🚀 go-pugleaf

  $@5FCO!wElKLEENO$G$9!#(J

In article <TANAKA.93Jan18213841@dice.ling.flab.fujitsu.co.jp>
	tanaka@flab.fujitsu.co.jp (TANAKA Hiroshi) writes:

> $@$"!"$=$+!#%U%)%k%@Fb(J$@$K4{$K(JSJIS$@$G%;!<%V$5$l$F$k$o$1$8$c$J$$$s$G$9$h$M!#!#(J
> $@$7$?$i!"$=$l$O(Jmh-e$@$N@UG$$8$c$"$j$^$;$s!#%9%W!<(J$@%k$+$i%U%)%k%@Fb$K%a!<%k(J
> $@$r;}$C$F$/$k$N$O(J inc $@%3%^%s%I$NLrL\$G$9$+$i!#(J
> SJIS$@$G%U%)%k%@Fb$K%;!<%V$5(J$@$l$?5-;v$rFI$`>l9g$K!">e5-$N@_Dj$r;H$C$F2<$5(J
> $@$$!#(J
> 
> SJIS$@$G(J inc $@$9$kJ}K!$OKM$K$OJ,$+$j$^$;$s!#(J(_O_)

  $@;d$O(J Sun $@$G;H$C$F$$$F!"IaCJ$N4A;z%3!<%I$O(J EUC $@$G!"(JMH $@$N;~$O(J JIS $@$K$7(J
$@$F$$$^$9!#$=$N:]$N@_Dj$r0l(J$@1~2<$KIU$1$^$9!#(J

  $@JL$JJ}K!$H$7$F$O(J nkf $@Ey$NJQ49%U%#%k%?!<$rDL$9(J script $@$r=q$$$F!"(Jinc $@$N(J
$@$+$o$j$K;H$C(J$@$F$O$I$&$G$7$g$&!)(J



				$@5FCO(J $@=S>4!wElKLEENO(J
				(kikuchi@noguchi.riec.tohoku.ac.jp)



(setq mh-folder-mode-hook 'mh-kanji)
(setq mh-letter-mode-hook 'mh-kanji)
(setq mh-inc-folder-hook 'my-mh-inc)
(setq mh-before-send-letter-hook 'mh-kanji)
(setq mh-quit-hook 'mh-kanji2)

(defun mh-kanji ()
  "set kanji code for MH"
  (set-default-kanji-fileio-code 2)
  (set-kanji-fileio-code 2)
  (set-kanji-expected-code 2)
  (set-kanji-process-code 2))

(defun mh-kanji2 ()
  "reset kanji code"
  (set-default-kanji-fileio-code 3)
  (set-kanji-fileio-code 3)
  (set-kanji-expected-code t))

(defun my-mh-inc ()
  "set up for MH"
  (mh-kanji)
;  (shell-command "auto-refile -i")
  )