[Mew-dist 10316] Re: Japanese nickname in Addrbook

[OBATA Noboru]

> 実は eyeball-check しかしていないので、誰かテストしてください。

perl はあまり分からないのですが、次のようにしないと imls で日本
語のニックネームが化けてしまいました。

-- 
小幡 昇 (obata at example.com)
-------------- next part --------------
--- IM/Japanese.pm.orig	Sat Aug 21 18:24:41 1999
+++ IM/Japanese.pm	Sat Aug 21 18:28:22 1999
@@ -274,8 +274,8 @@
     $line =~ s/((?:$C_euc)+|(?:$C_euc_kana)+)/e2j($1)/geo;
     return $line;
 }
-sub e2j ($$) {
-    my $cur = @_;
+sub e2j ($) {
+    my $cur = shift;
     $cur =~ tr/\xa1-\xfe/\x21-\x7e/;
     if ($cur =~ /\x8e/) {
 	$cur =~ tr/\x8e//d;