[Mew-Win32 01530] Re: non ISO-2022-JP (Re: fiber, movemail on meadow1.04a1)

[Hideyuki SHIRAI ( 白井秀行 )]

$BGr0f$G$9!#$9$C$+$j!"K:$l$F$$$^$7$?!#(B(__)

From: Takayoshi "TK" KAWATE <taka at example.com> $B$5$s[)$/(B
Subject: [Mew-Win32 01521] Re: non ISO-2022-JP (Re: fiber, movemail on meadow1.04a1)
Message-ID: <19990621205216J.taka at example.com>
Date: Mon, 21 Jun 1999 20:52:16 +0900 (JST)

$B$+$o$F(B> $B$O$$(B(^^)/  $B$h$m$7$/$*4j$$$7$^$9!*(B(^^;)

$BGr0f(B> 1. "~' $B$H(B "(J~(B"$B!"(B"\" $B$H(B "(J\(B" $B$N8+J,$1$,$D$/J}K!!#(B

$B0J2<$O<i2,$5$s$,(B fj $B$KEj9F$5$l$?FbMF$G$9!#A0H>$,(B Emacs-20.2 $BMQ$G(B
$B8eH>$,(B Emacs-20.3.x $BMQ$G$9!#(B

(if (fboundp 'make-unification-table)
    (setq standard-character-unification-table-for-decode
	  (make-unification-table
	   (let ((i 33)
		 dest)
	     (while (< i 128)
	       (or (memq i '(?\\ ?~))
		   (setq dest
			 (cons (cons (make-char 'latin-jisx0201 i) i)
			       dest)))
	       (setq i (1+ i)))
	     (nreverse dest)))))

(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode
	  (make-translation-table
	   (let ((i 33)
		 dest)
	     (while (< i 128)
	       (or (memq i '(?\\ ?~))
		   (setq dest
			 (cons (cons (make-char 'latin-jisx0201 i) i)
			       dest)))
	       (setq i (1+ i)))
	     (nreverse dest)))))


$BGr0f(B> 2. latin-jisx0201 $B$NF~NOJ}K!!#(B

$B$3$l$O<+A0!#E,Ev$J%-!<$K%P%$%s%I$7$^$7$g$&!#$7$+$7!"CY$$!"1x$$!#(B
$B$@$1$I$a$C$?$K;H$&$b$s$8$c$J$$$7!"(Bloop $B$b0l2s$7$+2s$i$J$$$H$-$,(B
$BBgB??t$@$+$i$$$$$+!"$H$$$&$3$H$G(B ^^;;;

(define-key global-map "\C-x9\\" 'jisx0201-input)

(defun jisx0201-input (&optional string)
  (interactive "sInput(ASCII only) ")
  (let ((count (length string))
	(pos 0))
    (while (> count 0)
      (cond
       ((functionp 'char-to-int)
	(insert (make-char 'latin-jisx0201 (char-to-int (aref string pos)))))
       ((functionp 'make-char)
	(insert (make-char 'latin-jisx0201 (aref string pos))))
       (t
	(insert (make-character lc-roman (aref string pos)))))
      (setq count (1- count))
      (setq pos (1+ pos)))))

$B$+$o$F(B> $B!t$D$$$G$K!$(BX-ROT$B$NFI$_J}$b65$($F$$$?$@$1$k$H4r$7$$$N$G$9$1(B
$B$+$o$F(B>   $B$I!&!&!&(B(^^;) $B7k9=A0$N%a!<%k$K at example.com$N;EJ}$,$"$C$?$H$O;W$&$N(B
$B$+$o$F(B>   $B$G$9$,!#(B

($B$^$@F0$$$F$$$k$J$!(B)mew-caesar.el $B$r(B install $B$7$F$$$l$P!"(BX-ROT13
$B$J(B part $B$O(B message buffer $B$N;X<($K=>$($PFI$a$^$9!#$"$H(B tm $B$+(B
SEMI $B$+(B nkf(.exe) $B$N$I$l$+$,L5$$$H%@%a$G$9!#(B

$B$^$?!"(Bmew-caesar-whole-buffer()$B!"(Bmew-caesar-region() $B$J$I$N4X?t(B
$B$r(B M-x $B$G8F$S=P$;$P!"DL>o$N(B message $B$N0lItJ,$,(B caesar encrypt $B$5(B
$B$l$?$b$N$b(B decode $B$G$-$^$9!#(B

# C-xC-q $B$J$I$G(B read-only $B$r30$5$J$1$l$P$$$1$^$;$s$,!"$?$^$K$7$+(B
# $B$J$$$+$i$3$l$G$$$$$G$9$h$M!#(B


;; $Bznj2S}(B Jro $BSvP'(Bzrj-pnrfne $BS~SbS=S[SvS\SySSSfPQq8SaSdP(SwlBSZ(B
;; $BS=SuSfS/SrSnSDSoS`SxPQS/SPPQb}SZSzPRPRPR(B^^;;;


$BGr0f(B> 5. UTF-8 $B$NFI$_J}!#(B

$BEvA3!"(Bmule-ucs $B$,F3F~$5$l$F$$$J$$$H$@$a$G$9!#(Bhimi $B$5$sHG(B $B$^$?$O(B
akr $B$5$sHG$N(B mule-ucs $B$rF3F~$7!"(Bun-tools $B$d(B un-sample $B$r(B require
$B$7$F$*$-$^$7$g$&!#(B

# /ftp.jaist.ac.jp:/pub/GNU/elisp/mule-ucs/

# $B$A$J$_$K!"$I$&$b(B himi $B$5$sHG(B 0.01 $B$@$H%a!<%k$r=q$/J}$O;_$a$F$*(B
# $B$$$?J}$,NI$$$+$b$7$l$^$;$s!#$"$s$^$jD4$Y$J$+$C$?$s$G$9$,!"(B
# Unicode Signature($B$@$C$1!)(B)$B$,$D$/$H$J$s$+$h$m$7$/$J$$$h$&$G$9!#(B

$B$A$g$C$HJQ$J4X?t$b at example.com$7$F$$$F!"$J$*$+$D!"(BX-CTEXT $B$b(B direct $B$GFI(B
$B$`$h$&$K$7$A$c$C$F$$$k$s$G$9$,!#!#!#(B

(defun add-to-list-append (list-var element)
  (or (member element (symbol-value list-var))
      (set list-var (reverse (cons element (reverse (symbol-value list-var))))))

(add-hook 
 'mew-init-hook
 '(lambda ()
    (if (and (boundp 'mule-version) (string< mule-version "3"))
	(add-to-list-append 'mew-cs-database '("x-ctext" nil *ctext*))
      (add-to-list-append 'mew-cs-database '("x-ctext" nil ctext))
      (cond
       ((coding-system-p 'utf-8)		;; akr's version
	(add-to-list-append 'mew-cs-database
			    '("utf-8"
			      (ascii
			       latin-iso8859-1 latin-iso8859-2
			       latin-iso8859-3 latin-iso8859-4
			       cyrillic-iso8859-5
			       greek-iso8859-7
			       hebrew-iso8859-8
			       latin-iso8859-9
			       japanese-jisx0208 japanese-jisx0212
			       chinese-cns11643-1 chinese-cns11643-2
			       chinese-cns11643-3 chinese-gb2312
			       korean-ksc5601 katakana-jisx0201
			       latin-jisx0201)
			      utf-8 "quoted-printable"
			      utf-8 "Q"))
	(add-to-list-append 'mew-charset-list "utf-8"))
       ((coding-system-p 'utf8)			;; himi's version
	(add-to-list-append 'mew-cs-database	;; READ ONLY
			    '("utf-8" nil utf8))))
      )))

$B$G$9!#$"$^$j!"$*$*$C$T$i$K$7$J$$$G2<$5$$$M!#(B^^;;;

-- 
$BGr0f=(9T(B (mailto:shirai at example.com)