Newsgroups: fj.editor.mule,fj.mail
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.u-tokyo.ac.jp!sinetnews!hakata!kudpc!sakunami!gatortia!kojiro!sasuke!kikuchi
From: kikuchi@tohoku-epco.co.jp (Toshiaki Kikuchi)
Subject: Re: Nihongo text cannot be shown by mh-e on mule 2.2.2
In-Reply-To: ito@htk.hitachi-cable.co.jp's message of 7 Mar 1995 11:34:08
 JST
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <1995Mar8.011613.17220@sasuke.iclab.nakayama.tohoku-epco.co.jp>
Sender: kikuchi@sasuke.iclab.nakayama.tohoku-epco.co.jp (Toshiaki Kikuchi)
Organization: Tohoku Electric Power Co., Ltd.
References: <ITO.95Mar7113408@johp425.htk.hitachi-cable.co.jp>
Mime-Version: 1.0
Distribution: fj
Date: Wed, 8 Mar 1995 01:16:10 GMT
Lines: 56
Xref: galaxy.trc.rwcp.or.jp fj.editor.mule:2631 fj.mail:1543
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.mail&nb=1543&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


  $B5FCO!wElKLEENO$G$9!#(B

>>>>> On 7 Mar 1995 11:34:08 JST,
ito@htk.hitachi-cable.co.jp said:

ito> $B$3$N$?$S(B mule 2.2.2 $B$r;H$$;O$a$^$7$?$,!$(Bmh-e $B$G%a!<%k$rI=<((B
ito> $B$7$h$&$H$9$k$H!$J8;z2=$1$7$F$7$^$$:$$C$F$$$^$9!%(B

ito> $B>I>u(B

ito> 1. mh-rmail $B$GI=<($5$l$k%a!<%k0lMw$NCf$NF|K\8lItJ,$,J8;z2=$1$7$^$9(B
ito> 2. mh-show $B$GI=<($5$l$k%a!<%k$NK\J8$NF|K\8l$,J8;z2=$1$7$^$9!%(B
ito> 3. $B%3%^%s%IL>$OK:$l$^$7$?$,!$(Bmh-e scan $B$N%a!<%k0lMw$G%3%s%^$rBG$C$F(B
ito>    $B%X%C%@$HK\J8$H$r0l=o$KI=<($9$k$H@5>o$KI=<($5$l$^$9!%(B

  $B@N;d$bF1$8$h$&$J>uBV$K$J$C$?$h$&$J5$$b$7$^$9$,!"K:$l$^$7$?!#(B

ito> $B@_DjEy(B

ito> (define-program-coding-system nil ".*scan.*" (cons *junet* *junet*))
ito> (define-program-coding-system nil ".*inc.*" (cons *junet* *junet*))

ito> $B$r9T$J$C$F$$$^$9!%$3$l$i$r!$(B*autoconv* *junet*unix *noconv* $B$J$I$H(B
ito> $B$$$m$$$mJQ$($F%F%9%H$7$^$7$?$,!$2~A1$O8+$i$l$^$;$s$G$7$?!%(B

  mule-init.el $B$G$O<!$N$h$&$K$J$C$F$^$9!#(B

(define-program-coding-system nil ".*scan.*" *junet*)
(define-program-coding-system nil ".*inc.*" *junet*)
(define-program-coding-system nil ".*mhl.*" *junet*)

  $B$^$?!"(Bmule-util.el $B$G$O<!$N$h$&$KDj5A$5$l$F$^$9!#(B

(defun define-program-coding-system (buffer program code)
  (let* ((key (cons buffer program))
 (place (assoc key program-coding-system-alist)))
    (if (coding-system-p code);93.1.5 by K.Handa
(setq code (cons code code)))
    (if place
(setcdr place code)
      (setq place (cons key code))
      (setq program-coding-system-alist
    (cons place program-coding-system-alist)))
    place))

  $B$=$N8e$^$G$ODI$$$+$1$F$^$;$s$,!"0KF#$5$s$N@_Dj$G$O(B code $B$,(B (*junet*
*junet* *junet* *junet*) $B$K$J$C$F$7$^$$$^$;$s$+!)(B
$B$3$l$,$I$&ITET9g$+$^$G$O$o$+$j$^$;$s!#(B

  $B$=$l$+$i(B shell $B$+$i(B inc $B$d(B scan $B$r<B9T$9$k$H$I$&$G$9$+!)(B



$B5FCO=S>4!wElKLEENO(B
(kikuchi@tohoku-epco.co.jp)
