home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / fj / editor / emacs / 1405 < prev    next >
Encoding:
Text File  |  1993-01-25  |  2.1 KB  |  66 lines
  1. Path: sparky!uunet!stanford.edu!sun-barr!sh.wide!wnoc-snd-ss2!akiu!akiu!kikuchi
  2. From: kikuchi@noguchi.riec.tohoku.ac.jp (Toshiaki Kikuchi)
  3. Newsgroups: fj.editor.emacs
  4. Subject: Re: Kanji code in mh-e
  5. Date: 25 Jan 1993 09:18:46 GMT
  6. Organization: Research Institute of Electrical Communication, TOHOKU univ.
  7. Lines: 51
  8. Distribution: fj
  9. Message-ID: <1k0b9mINN4vl@akiu.gw.tohoku.ac.jp>
  10. References: <SHIBATA.93Jan18191314@sel32a.tutcc.tut.ac.jp>
  11.     <TANAKA.93Jan18213841@dice.ling.flab.fujitsu.co.jp>
  12. NNTP-Posting-Host: susuki.noguchi.riec.tohoku.ac.jp
  13. In-reply-to: tanaka@flab.fujitsu.co.jp's message of 18 Jan 93 21:38:41 JST
  14.  
  15.  
  16.   $@5FCO!wElKLEENO$G$9!#(J
  17.  
  18. In article <TANAKA.93Jan18213841@dice.ling.flab.fujitsu.co.jp>
  19.     tanaka@flab.fujitsu.co.jp (TANAKA Hiroshi) writes:
  20.  
  21. > $@$"!"$=$+!#%U%)%k%@Fb(J$@$K4{$K(JSJIS$@$G%;!<%V$5$l$F$k$o$1$8$c$J$$$s$G$9$h$M!#!#(J
  22. > $@$7$?$i!"$=$l$O(Jmh-e$@$N@UG$$8$c$"$j$^$;$s!#%9%W!<(J$@%k$+$i%U%)%k%@Fb$K%a!<%k(J
  23. > $@$r;}$C$F$/$k$N$O(J inc $@%3%^%s%I$NLrL\$G$9$+$i!#(J
  24. > SJIS$@$G%U%)%k%@Fb$K%;!<%V$5(J$@$l$?5-;v$rFI$`>l9g$K!">e5-$N@_Dj$r;H$C$F2<$5(J
  25. > $@$$!#(J
  26. > 
  27. > SJIS$@$G(J inc $@$9$kJ}K!$OKM$K$OJ,$+$j$^$;$s!#(J(_O_)
  28.  
  29.   $@;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
  30. $@$F$$$^$9!#$=$N:]$N@_Dj$r0l(J$@1~2<$KIU$1$^$9!#(J
  31.  
  32.   $@JL$JJ}K!$H$7$F$O(J nkf $@Ey$NJQ49%U%#%k%?!<$rDL$9(J script $@$r=q$$$F!"(Jinc $@$N(J
  33. $@$+$o$j$K;H$C(J$@$F$O$I$&$G$7$g$&!)(J
  34.  
  35.  
  36.  
  37.                 $@5FCO(J $@=S>4!wElKLEENO(J
  38.                 (kikuchi@noguchi.riec.tohoku.ac.jp)
  39.  
  40.  
  41.  
  42. (setq mh-folder-mode-hook 'mh-kanji)
  43. (setq mh-letter-mode-hook 'mh-kanji)
  44. (setq mh-inc-folder-hook 'my-mh-inc)
  45. (setq mh-before-send-letter-hook 'mh-kanji)
  46. (setq mh-quit-hook 'mh-kanji2)
  47.  
  48. (defun mh-kanji ()
  49.   "set kanji code for MH"
  50.   (set-default-kanji-fileio-code 2)
  51.   (set-kanji-fileio-code 2)
  52.   (set-kanji-expected-code 2)
  53.   (set-kanji-process-code 2))
  54.  
  55. (defun mh-kanji2 ()
  56.   "reset kanji code"
  57.   (set-default-kanji-fileio-code 3)
  58.   (set-kanji-fileio-code 3)
  59.   (set-kanji-expected-code t))
  60.  
  61. (defun my-mh-inc ()
  62.   "set up for MH"
  63.   (mh-kanji)
  64. ;  (shell-command "auto-refile -i")
  65.   )
  66.