Namazu-devel-ja(旧)


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

Re: mhonarc filter



かずひこです。

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;
+    }
+}