$B;{@>$G$9!#(B
(B
(BShigeki OGAWA wrote:
(B>
(B> > $B%9%Z!<%9$G6h(B\xA8$B_a$(D????$B$i$l$J$$>l9g$C$F$"$j$^$7$?$C$1(B?
(B>
(B> $B$A$g$C$HD4$Y$F$_$?$H$3$m!"(BMacintosh$BMQ$N(BMicrosoft$B$N%a!<%k%=%U%H(B
(B> $B$G$O%9%Z!<%9$G6h(B\xA8$B_a$(D????$B$i$l$J$$$h$&$G$9!#(B
(B>
(B> User-Agent: Microsoft-Entourage/10.1.4.030702.0
(B> User-Agent: Microsoft-Outlook-Express-Macintosh-Edition/5.0.6
(B
(B# Microsoft \xA8$B_a$(D????$B$+(B...$B!#(B
(B
(B> $B$[$H$s$I2~A1$5$l$^$7$?!#fIW$=$&$G$9!#(B
(B
(B# $B$7$+$7!">lEv$?$jE*$J=$(B\xA8$B_a$(D??(B\x{00be}$B$@$J$!!#(B
(B
(B# diff -c MHonArc-2.6.10/lib/mhutil.pl mhutil.pl
(B*** MHonArc-2.6.10/lib/mhutil.pl 2003-10-25 04:24:35.000000000
(B+0900
(B--- mhutil.pl 2004-11-25 10:44:24.000000000 +0900
(B***************
(B*** 29,34 ****
(B--- 29,36 ----
(B
(B use MHonArc::RFC822;
(B
(B+ use Jcode;
(B+
(B ## RFC 2369 header fields to check for URLs
(B %HFieldsList = (
(B 'list-archive' => 1,
(B***************
(B*** 165,177 ****
(B--- 167,182 ----
(B
(B my $tok;
(B foreach $tok (@tokens) {
(B+ Jcode::convert(\$tok, "euc");
(B next if $skip;
(B if ($tok =~ /^"/) { # Quoted string
(B $tok =~ s/^"//; $tok =~ s/"$//;
(B+ Jcode::convert(\$tok, "jis");
(B return $tok;
(B }
(B if ($tok =~ /^\(/) { # Comment
(B $tok =~ s/^\(//; $tok =~ s/\)$//;
(B+ Jcode::convert(\$tok, "jis");
(B return $tok;
(B }
(B if ($tok =~ /^<$/) { # Address spec, skip
(B***************
(B*** 190,199 ****
(B--- 195,207 ----
(B $str = join(' ', @bare);
(B $str =~ s/@.*//;
(B $str =~ s/^\s+//; $str =~ s/\s+$//;
(B+ Jcode::convert(\$str, "jis");
(B return $str;
(B }
(B $str = MHonArc::RFC822::first_addr_spec(@tokens);
(B+ Jcode::convert(\$str, "euc");
(B $str =~ s/@.*//;
(B+ Jcode::convert(\$str, "jis");
(B $str;
(B }
(B--
(B=====================================================================
$B;{@>(B $BCi>!(B(TADAMASA TERANISHI) yw3t-trns(_at_)asahi-net(_dot_)or(_dot_)jp
(Bhttp://www.asahi-net.or.jp/~yw3t-trns/index.htm
(BKey fingerprint = 474E 4D93 8E97 11F6 662D 8A42 17F5 52F4 10E7 D14E