[mew-dist 19403] Re: JIS X 0201 片仮名 → JIS X 0208 片仮名変換

[K. Umakoshi]

 From: Kazu Yamamoto (’»³’ËÜ’Ï’ɧ) <kazu at example.com>
 Date: Wed, 17 Oct 2001 12:28:45 +0900 (JST)
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> > # ’Îã’¤¨’¤Ð’¡¢euc-jp -> shift_jis ’¤Î’»þ’¤â X0201 ’¥«’¥¿’¥«’¥Ê’¤Î’ÊÑ’´¹’¤Ï
> > # ’ɬ’Í×’¤Ê’¤¤’¤Î’¤Ç(’¾¯’¤Ê’¤¯’¤È’¤â’¥Ç’¥Õ’¥©’¥ë’¥È’¤Ç’¤Ï)’¤·’¤Æ’Íß’¤·’¤¯’¤¢’¤ê’¤Þ’¤»’¤ó’¡£
> 
> ’³Î’¤«’¤á’¤Æ’¤¤’¤Þ’¤»’¤ó’¤¬’¡¢’Çò’°æ’¤µ’¤ó’¤Î’¥Ñ’¥Ã’¥Á’¤Ë’¤è’¤ê’¡¢Shift_JIS ’¤È’ÌÀ’µ­’¤·’¤¿’¾ì’¹ç’¤Ï’¡¢
> ’¥«’¥¿’¥«’¥Ê’¤ò’ÊÑ’´¹’¤·’¤Ê’¤¯’¤Ê’¤Ã’¤¿’¤È’»×’¤¤’¤Þ’¤¹’¡£

# ’¤¹’¤ß’¤Þ’¤»’¤ó’¡£
# ’¤Ê’¤ó’¤«’ÊÌ’¤Î’°Æ’¤ò’¹Í’¤¨’¤Æ’¤¤’¤Æ’º®’Íð’¤·’¤Æ’¤¤’¤¿’¤è’¤¦’¤Ç’¤¹’¡£
# ’¸å’Ⱦ’Éô’ʬ’¤Ï’̵’»ë’¤·’¤Æ’¤¯’¤À’¤µ’¤¤’¡£

’Çò’°æ’¤µ’¤ó’¤Î’¥Ñ’¥Ã’¥Á’¤Ë’¤è’¤ê’ÇÛ’Á÷’»þ’¤Î’ʸ’»ú’¥³’¡¼’¥É’¤ò’ÌÀ’¼¨’¤·’¤¿’¾ì’¹ç’¤Ï’¡¢
’ÊÑ’´¹’¤µ’¤ì’¤Ê’¤¤’¤³’¤È’¤ò’³Î’ǧ’¤·’¤Þ’¤·’¤¿’¡£


’¤Ç’¡¢’¤µ’¤é’¤Ë’ʸ’»ú’¥³’¡¼’¥É’¤ò’ÌÀ’¼¨’¤·’¤Ê’¤¯’¤Æ’¤â’ʸ’»ú’¥³’¡¼’¥É’¤ò’ÊÑ’¹¹’¤»’¤º
’ź’ÉÕ’¤¹’¤ë’µ¡’ǽ’¤¬’Íß’¤·’¤¤’¤È’»×’¤Ã’¤Æ’¸«’¤è’¤¦’¸«’¤Þ’¤Í’¤Ç’¤¤’¤¸’¤Ã’¤Æ’¤ß’¤¿’¤ó’¤Ç’¤¹’¤¬’¡¢
’ʸ’»ú’¥³’¡¼’¥É’¤Î’¼è’ÆÀ’¤¬’¤¦’¤Þ’¤¯’¤¤’¤«’¤Ê’¤¯’¤Æ’¹Ô’¤­’µÍ’¤Þ’¤Ã’¤Æ’¤·’¤Þ’¤¤’¤Þ’¤·’¤¿’¡£
’¤¢’¤ë’¤È’ÊØ’Íø’¤À’¤È’»×’¤¦’¤ó’¤Ç’¤¹’¤¬’¡¢’¤¤’¤«’¤¬’¤Ç’¤·’¤ç’¤¦’¡©

      (unless charset
	(if mew-attach-without-converting-charset
’¡ß ’¢ª	    (setq charset (mew-charset-guess-region beg (point-max)))
	  (mew-charset-sanity-check beg (point-max))
	  (setq charset (mew-charset-guess-region beg (point-max)))))


----
’ÇÏ’±Û