Re: Windows Eudora mbox $B$NJQ49$G$NJ8;z2=$1$K$D$$(B$B$F(B

$B2CF#$G$9!#(B
(B
(BFrom: Shigeki OGAWA 
(B<shigeki_ogawa(_at_)bch(_dot_)east(_dot_)ntt(_dot_)co(_dot_)jp>
(BSubject: Re: Windows Eudora mbox $B$NJQ49$G$NJ8;z2=$1$K$D$$$F(B
(BDate: Wed, 24 Nov 2004 13:09:48 +0900
(B> At 00:47 04/11/23, Tadamasa Teranishi wrote:
(B>> MHonArc::RFC822.pm $B$N(B tokenise $B$N=hM}$,(B JIS $B%3!<%I$(_a$(D????$BH$&$^$(B\xAF
(B>> \xA8$B_a$(D????$B$j=P$;$J$$$h$&$G$9!#(B
(B>> # $B$H$$$&$+!"(BJIS $B%3!<%I$r9MN8$7$F$$$J$$$H$$$&$+!#(B
(B
$B$G$9$M!#(B
(B
(B> $B%9%Z!<%9$,$"$k>l9g$O(BThread$BI=<($GLdBjL5$$>l9g$b$"$k(B
(B> $B$h$&$G$9$,!">e5-$N!V$"!W$NNc$N$h$&$K$(_a$(D????$Ba$J>l9g$(B\x{2779}$B"$(B\xEB
(B> $B$h$&$G$9!#(B
(B
$B!V$"!W$O(B ISO-2022-JP $B$G!V(B$ "$B!W$G$9$N$G!"$3$N(B " $B$,860x$G$&$^(B
$B$/$$$C$F$$$J$$$N$(_a$(D????$BH;W$$$^$9!(B\xA3
(B
(B
$B$G!"(Bquick hack $B$G$9$,!"%Q%C%A$r:n$C$F$_$^$7$?!#$?$(_a$(D????$B7!(B\xA2
(B
(B| From: Taro Yamada t$B;3ED(B <yamada(_at_)example(_dot_)com>
(B
$B$3$s$J46$8$G%m!<%^;z$H4A;z$,$/$C$D$$$F$$$k$H(B Thread Index $B$G(B
$B>eZ$7$F$$$J$$$N$G!"$3$l0J30$K$bLdBj$,5/$3$k2DG=(B
(B\xA8$B_a$(D??(B\x{00b3}$B%"%j$G$9$,!"$h$m$7$1$l$P$3$l$r;H$C$F3NG'$7$F$_$F$$$?$(_a$(D????$B1$(B\xEB
$B$HM-Fq$$$G$9!#(B
(B
(B
(B# ISO-2022-JP $B0MB8%3!<%I$J$N$G!"(B(RFC822.pm $B$G$O$J$/(B)
(B# iso2022jp.pl $B$"$?$j$K=q$/$Y$-$J$N$+$J$!$H$O;W$$$^$9$,!"$R(B
(B# $B$H$^$:$O8!>ZMQ$H$$$&$3$H$G!#(B
(B
(B-- 
$B$+$H$Z(B / $B2CF#(B $B5.;J(B

--- RFC822.pm,orig      Thu Sep  9 15:09:52 2004
+++ RFC822.pm   Wed Nov 24 14:18:28 2004
@@ -138,7 +138,16 @@
     my ($comment, $comment_depth);
 
     while (s/^\s*(\S)/$firstchar = $1/e) {
-       if ($firstchar =~ /[$self_delimiters]/o) {
+       if ($firstchar =~ /\033/) {
+           # iso-2022-jp chars
+           if (s/(\033\$[^\033]+\033\(.)//) {
+               push (@outtoks, $1);
+           } else {
+               # something wrong?
+               s/^(.)//;
+               push (@outtoks, $1);
+           }
+       } elsif ($firstchar =~ /[$self_delimiters]/o) {
            # a special character as a self-delimiting token.
            s/^(.)//;
            push (@outtoks, $1);