Namazu-users-ja($B5l(B)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: mhonarc $B$G:n$C$?%Z!<%8$NCx

$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>