namazu-ml(ring)

[Satoru Takabayashi <satoru@xxxxxxxxxxxxx>]

Hirotaka Aoki <aoki@xxxxxxxxxxxxx> wrote:

>|もし原因がわからなければ私の方へ一つその msgXXXXX.html ファイルを
>|送ってもらえれば、こちらで確認します。
>別便で DM させて頂きました。

確認しました。手元の環境では正常に処理できましたので、おそらく青木
さんの環境 (たぶんPerl) に問題があるのでしょう。お使いの Perlのヴァー
ジョンを教えていただけますか?

>|sub mhonarc_filter ($$) {
>|    my ($contents, $weighted_str) = @_;
>|    # MHonArc を使うときはこんな感じに処理すると便利
>|	
>|    $$contents =~ s/<!--X-MsgBody-End-->.*//gis;
>|    $$contents =~ s/<!--X-TopPNI-->.*<!--X-TopPNI-End-->//gis;
>|    $$contents =~ s/<!--X-Subject-Header-Begin-->.*<!--X-Subject-Header-End-->//gis;
>|    $$contents =~ s/<!--X-Head-Body-Sep-Begin-->/\n/;  # ヘッダと本文を区切る
>|    $$contents =~ s/^<LI>//gim;   # ヘッダの前に空白をあけたくないから
>|    $$contents =~ s/<\/?EM>//gi;  # ヘッダの名前をインデックスにいれたくない
>|    $$contents =~ s/^\s+//;
>|
>|}
>
>としたら意図した動作をしているみたいです。

なるほど。では v1.3.0.3 からはそのように変更します。元の [\s\S]* 
なんて Perl4 的な便法ですしね。

-- Satoru Takabayashi