[Mew-dist 04528] Re: charset=shift_jis

[SAKAI Kiyotaka]

かなり前の話になりますが、

>> In article <19980302171742Q.utashiro at example.com>, Kazumasa Utashiro <utashiro at example.com> writes:

> ただ、漢字と仮名が繰り返し出て来る文章の場合は、

> 	ESC-$(B ...漢字... ESC-)I ...仮名... ESC-A ...漢字... ESC-(B

> としたい気がします。

だそうですので、以下のパッチのようにして下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: EncDec.pm.in
===================================================================
RCS file: /home/cvsroot/im-91/IM.in/EncDec.pm.in,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 EncDec.pm.in
--- EncDec.pm.in	1998/05/06 06:27:52	1.1.1.1
+++ EncDec.pm.in	1998/05/06 09:30:04
@@ -234,8 +234,7 @@
 
     $str =~ s/($kanji($kanji|$kana)*$kanji|($kanji)+)/\e\$\(B\1\e\(B/g;
     $str =~ s/(($kanji)+)/s2j($1)/ge;
-    $str =~ s/($kana)/\e\)I\1/;
-    $str =~ s/($kana)([^\xa0-\xdf]*$)/\1\e-A\2/;
+    $str =~ s/(($kana)+)/\e\)I\1\e-A/g;
     return $str;
 }