- From: OGAWA Kunihiko <kuni@xxxxxxxxxx>
- Date: Sat, 23 Feb 2002 13:03:01 +0900 (JST)
- X-ml-name: namazu-users-ja
- X-mail-count: 02468
$B>.@n$G$9!#(B
$B$"$j$,$H$&$4$6$$$^$9!#$d$C$H860x$,$o$+$j$^$7$?!#(B
(B
$BF#86$5$s(B>
(B>(1) (filter/)mhonarc.pl
(B> $B$G(B mhonarc $B$GIU$1$i$l$?M>J,$J$b$N$r>C$7$F!"85$N%a!<%k$N$h$&$KLa$9(B
(B:
(B>$B0lHV2DG=@-$,9b$$$N$O(B (1) $B$G$9$M!#B?J,!#FC$K(B *.rc $B$G2hLL$rJQ99(B
(B>$B$7$F$$$k$H$@$a$J$3$H$b$"$j$^$9!#(B
(B
$B$O$$!"(Bmhonarc $B$N(B rc $B$G(B
(B<Excs>
(Bfrom
(Bdate
(Bsubject
(Breferences
(B</Excs>
$B$H$7$F!"%X%C%@$rA4It>C$7$F$$$?$N$,D>@\$N860x$G$7$?!#(B
$B$?$@!"(B<SubjectHeader> $B$K!"%?%0$r$N$>$1$P!"$3$l$i$N%X%C%@$H(B
$BF1$8$b$N$rF~$l$F$*$$$?$N$G!"$J$<$=$l$,=&$o$l$J$$$N$+$,Ff$G$7$?!#(B
$B@h$K(B rc $B%U%!%$%k$rLa$7$F%F%9%H$9$Y$-$G$7$?!#$9$_$^$;$s!#(B
(B
(B>$BKM$O:G6a!"$"$-$i$a$F!"0lHV:G=i$NC$($kItJ,$+$i=&$&$h$j$O!"(B
$B$3$N$[$&$,$$$$$H;W$&$s$G$9$1$I!D(B
(B
$B$3$NJ}K!$G$d$m$&$H$7$^$7$?$,!"$b$&>/$7=$@5$,I,MW$G$7$?!#(B
(B
(B>+ if ( $header ) {
(B>+ $$contref = $header . "\n" . $$contref ;
(B>+ }
(B
$B$3$3$Ge$,>C$($F$7$^$$$^$9!#$J$N$G!"$;$C$+$/(B
(B$$contref $B$K$/$C$D$1$?(B $header $B$O$J$/$J$C$F$7$^$$!"(B
(Bmailnews.pl $B$KEO$j$^$;$s!#(B
(B
$B$b$H$b$H$O(B <!--X-Head-of-Message--> $B$H(B <!--X-Head-of-Message-End--> $B$N(B
$B4V$K$"$kItJ,$,(B mailnews.pl $B$KEO$C$F$$$k$N$G!"(B$header $B$r(B
$B$3$3$KKd$a9~$`$h$&$K$7$?$i!"$&$^$/F0$-$^$7$?!#(B
(B
$B$"$j$,$H$&$4$6$$$^$7$?!#(B
(B
(B--- mhonarc.pl.org2 Sat Feb 23 09:44:49 2002
(B+++ mhonarc.pl Sat Feb 23 12:36:14 2002
(B@@ -104,14 +104,13 @@
(B
(B # Separate headers and a body message.
(B $$contref =~ s/<!--X-Head-Body-Sep-Begin-->/\n/;
(B- $$contref =~ s/<!--X-Head-of-Message-->.*<!--X-Head-of-Message-End-->//s;
(B
(B $$contref =~ s/<!-- MHonArc v[0-9.]+ -->(.*)<!--X-Head-End-->//s;
(B $header = $1;
(B $$contref =~ s/<HTML>.*<BODY [^>]*>//s;
(B $header = XHeadertoheader($header);
(B if ( $header ) {
(B- $$contref = $header . "\n" . $$contref ;
(B+ $$contref =~ s/(<!--X-Head-of-Message-->).*(<!--X-Head-of-Message-End-->)/$1$header$2/s;
(B }
(B else {
(B # Handle a field consists of two or more lines.
(B
(B--
$B>.@xxxx'(B <kuni@xxxxxxxxxx>