Namazu-devel-ja(旧)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: mhonarc filter
- From: Kazuhiko <kazuhiko@xxxxxxxxxxxxxxxxxxx>
- Date: Sat, 04 Aug 2001 12:15:00 +0900
- X-ml-name: namazu-devel-ja
- X-mail-count: 01800
- References: <m3vgk48uvr.wl@kazuhiko.ring.gr.jp>
かずひこです。
At Sat, 04 Aug 2001 10:40:56 +0900,
Kazuhiko_archi wrote:
> # それでもまだ header 部が summary に入ってしまうケースがときどきあるよ
> # うな気もするのですが、もうちょっと調べてみます。mhonarc のリソースをい
> # じりまくっているのでその影響かもしれないし。
こっちはリソースファイルの調整で解決しました (MSGPGBEGIN で文字列を拾う
とだめみたい? <img ...> の alt を "" にしたら直ったので)。
で、ついでにもう一点ですが、日付は MHonArc で変換された HTML ファイルの
生成時刻ではなく、元のメールの日付の方がいいと思うので、さきほどの修正と
あわせて下記のように変更してはどうでしょうか?
--- mhonarc.pl.orig Sat Aug 4 01:19:46 2001
+++ mhonarc.pl Sat Aug 4 11:52:05 2001
@@ -76,6 +76,7 @@
}
+ mhonarc::get_date($contref, $fields);
mhonarc_filter($contref, $weighted_str, $fields);
html::html_filter($contref, $weighted_str, $fields, $headings);
@@ -105,7 +106,7 @@
$$contref =~ s/<!--X-Head-Body-Sep-Begin-->/\n/;
# Handle a field consists of two or more lines.
- $$contref =~ s!^(<LI>)(.*?)(</LI>$)!$1 . lftospace($2) . $3!gems;
+ $$contref =~ s!^(<LI>)(.*?)(</LI>$)!$1 . lftospace($2) . $3!giems;
# For plugging spaces before headers
$$contref =~ s/^<LI>//gim;
@@ -121,3 +122,12 @@
return $str;
}
1;
+
+sub get_date ($$) {
+ my ($contref, $fields) = @_;
+
+ if ($$contref =~ /<!--X-Date: (.*) -->/) {
+ my $tmp = $1;
+ $fields->{'date'} = $tmp;
+ }
+}