[Mew-dist 04051] Re: charset=shift_jis

[SAKAI Kiyotaka]

>> In article <19980227133203E.nagae at example.com>, nagae at example.com (Nagae Hidetake) writes:

>   確認しました．ばっちりですね．後は ISO-8859-[2-9] を正しく扱うには，
> Scan.pm の substr_safe を直す必要がありそうですけど．

> # 字数がずれます．

このパッチでいいと思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: Scan.pm.in
===================================================================
RCS file: /home/cvsroot/im-86/IM.in/Scan.pm.in,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 Scan.pm.in
--- Scan.pm.in	1998/02/20 00:09:21	1.1.1.1
+++ Scan.pm.in	1998/03/02 01:20:20
@@ -782,13 +782,23 @@
 	# for Japanese Character in rfc1554
 	elsif (s/(^\e\(B)//)	{ $G0 = $charset = 'ascii'; }
 	elsif (s/(^\e\$\@)//)	{ $G0 = $charset = 'jisx0208-1978'; }
-	elsif (s/(^\e\$B)//)	{ $G0 = $charset = 'jisx0208-1983'; }
+	elsif (s/(^\e\$\(?B)//)	{ $G0 = $charset = 'jisx0208-1983'; }
 	elsif (s/(^\e\(J)//)	{ $G0 = $charset = 'jisx0201-roman'; }
-	elsif (s/(^\e\$A)//)	{ $G0 = $charset = 'gb2312-1980'; }
+	elsif (s/(^\e\$\(?A)//)	{ $G0 = $charset = 'gb2312-1980'; }
 	elsif (s/(^\e\$\(D)//)	{ $G0 = $charset = 'jisx0212-1990'; }
 	elsif (s/(^\e\$\(C)//)	{ $G1 = $charset = 'ksc5601-1987';
 				  $G0 = 'ascii'; }
 
+	elsif (s/(^\e-A)//)	{ $G1 = $charset = 'iso8859-1'; }
+	elsif (s/(^\e-B)//)	{ $G1 = $charset = 'iso8859-2'; }
+	elsif (s/(^\e-C)//)	{ $G1 = $charset = 'iso8859-3'; }
+	elsif (s/(^\e-D)//)	{ $G1 = $charset = 'iso8859-4'; }
+	elsif (s/(^\e-L)//)	{ $G1 = $charset = 'iso8859-5'; }
+	elsif (s/(^\e-G)//)	{ $G1 = $charset = 'iso8859-6'; }
+	elsif (s/(^\e-F)//)	{ $G1 = $charset = 'iso8859-7'; }
+	elsif (s/(^\e-H)//)	{ $G1 = $charset = 'iso8859-8'; }
+	elsif (s/(^\e-M)//)	{ $G1 = $charset = 'iso8859-9'; }
+	   
 	elsif (s/(^\e\.A)//)	{ $G2 = $charset = 'iso8859-1'; }
 	elsif (s/(^\e\.F)//)	{ $G2 = $charset = 'iso8859-7'; }