🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.editor.xemacs
Article #1007

How to change codeset.

#1007
From: Makoto AKAI
Date: Wed, 10 Dec 1997 00:00
53 lines
2407 bytes


$B8=:_!"(Bmule 2.2.1 $B$+$i(B XEmacs 20.2 $B$K>h$j49$($F$$$k(B
$B$N$G$9!#(B(20.3 $B$G$J$$$N$,!#!#!#(Bgnus$B$,CY$$$h$&$J$N$G(B)

$B%a!<%k$rFI$`$N$K!"(BMH(mh-e) $B$r;H$C$F$$$^$9!#(B

(mew $B$r;H$&J}$,:#$OB?$$$N$G$7$g$&$,!#!#(B)


$B$=$3$G!"Aw$i$l$?%a!<%k$,!"(BISO-2022-JP $B$@$HI=<($5$l$^$9$,!"(B
Shift_JIS $B$GAw$i$l$F$-$?%a!<%k$@$H!"(B\200 $B$@$H$$$&$h$&$J(B
$B$b$N$,B3$$$?$N$,I=<($5$l$F!"$-$A$s$HI=<($5$l$^$;$s!#(B

$B$b$A$m$s!"(Bshift-jis $B$GAw$C$F$/$k%a!<%k$,:,K\E*$K$h$/$J$$(B
$B$N$O$o$+$C$F$$$k$N$G$9$,!"$=$&$$$&%a!<%k$,$"$k$N$G!"(B
$B$=$l$KBP=h$7$J$$$H$$$1$J$$>u67$G$9!#(B

gnus $B$G5-;v$rFI$`$H$-!"F|K\8l$N5-;v$rFI$`$?$a$K!"(B
 (require 'mime-setup)

$B$r@_Dj$7$F$$$^$9!#(B

$B$3$N@_Dj$r$H$k$H!"(Bshift-jis $B$N%a!<%k$b%\%G%#$O!"I=<($5$l$^$9!#(B

$B$G!"$I$&$7$?$i!"$3$N>u67$KBP=h$G$-$k$+9M$($F$$$^$9!#(B

$B0JA0$@$H!"0J2<$N(B.emacs$B$G@_Dj$7$?$i$J$s$H$+$J$C$F$$$?$N$G$9$,!"(B

(define-program-coding-system nil ".*scan.*" (cons *sjis* *sjis*))
(define-program-coding-system nil ".*inc.*" (cons *sjis* *sjis*))
(define-program-coding-system nil ".*show.*" (cons *sjis* *sjis*))

$B:#2s$@$H2<$N$h$&$K$7$^$7$?$,!"(B

(define-program-coding-system nil ".*mail.*" 'shift-jis)
(define-program-coding-system nil ".*scan.*" 'shift-jis)
(define-program-coding-system nil ".*inc.*" 'shift-jis)
(define-program-coding-system nil ".*show.*" 'shift-jis)
(setq mh-before-send-letter-hook
          '(lambda () (set-file-coding-system 'shift-jis)))
(setq mh-letter-mode-hook
          '(lambda () (set-file-coding-system 'shift-jis)))
(setq mh-letter-mode
          '(lambda () (set-file-coding-system 'shift-jis)))

programs-coding-system $B$O!":#$O;H$($J$/$J$C$F$$$k$h$&$K;W$($^$9!#(B
$B$I$&$7$?$i$h$m$7$$$G$7$g$&$+!)(B

$B$^$?!"0l2s$:$D$G$b$$$$$+$i!"I=<($5$l$F$$$k%P%C%U%!$N%3!<%I$r(B
$BJQ49$7$?$$$N$G$9$,!"(BNemacs $B$d(Bmule $B$G$"$C$?$h$&$J!"%3!<%I$r(B
$B%@%$%J%_%C%/$KJQ49$9$k%3%^%s%I$,$o$+$j$^$;$s!#(B
Technical Details
Message-ID: <vpmoh2pmyc3.fsf@nirvana.kobe.hp.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 1107f7,9c6993e197dd006d,start
X-Google-Attributes: gid1107f7,public
From: Makoto AKAI <akai@nirvana.kobe.hp.com>
Subject: How to change codeset.
Date: 1997/12/10
Message-ID: <vpmoh2pmyc3.fsf@nirvana.kobe.hp.com>
X-Deja-AN: 296856213
Organization: PSO/Local Product Operation - Kobe, HP Japan
Newsgroups: fj.editor.xemacs