Hatena::ブログ(Diary)

パソコン・メモメモ備忘録 このページをアンテナに追加 RSSフィード Twitter

トホホなパソコン生活
この日記で万が一何か役に立ったら「いいね!」か はてなスター★ を付けてもらえるとうれしいです(^_^)
日記内検索 「PocketWifi 関係」「Viliv S5 関係」「HDR-CX12 関係」 「WZR-AGL300NH 関係」 「AVCHD 関係」 「FinePix F30関係」

2013-08-30

[][] fml 4.0 カスタマイズ  fml 4.0 カスタマイズのブックマークコメント

今どきは fml8.0 を使うのが当たり前のように思うのだが、気がついたら fml 4.0 をインストールしてしまっていた。まぁ、以前別のサーバで動いていたメーリングリストの引っ越しなので、サービス停止時間を置かないで移行するには、その方が良かったのかもしれないが...

fml 4.0 で、Subject の頭にタグ([aaa:001] みたいな)が付く設定で運用している。タグが付いたまま返信しても( Re: [aaa:001] 〜みたいな表題)、自動で古いタグを外して、新しいタグを付け直してくれる([aaa:002] Re: 〜 になる)機能があり、それを使っている。

が、ふと気がつくと、古いタグが外されずに配信されているメールがある事に気がついた。調べてみると、タグも含めて、Subject 全体が MIME エンコードされてきたメールがそうなっているらしい。まずは、届いたメールの Subject を MIME デコードしてから JIS に変換して(しかも元は UTF-8 だった)処理すればいいかと考えたのだが、メーラーによっては、Subject に生 JIS が入っていると文字化けすることがあるようだ。

今の所一番よさそうなのは、タグの部分はそのままで、Subject の本体部分だけ MIME エンコードされているようにする方法。ということで、それを実現する方法を色々探してみた。もう、fml4 を使っている人はいないのか、同じような悩み(とその解決方法)は見つけられなかった。色々なところから情報を集めて作ったのが以下の方法。

該当のメーリングリストの設定ファイル cf の最後に以下を追加して、makefml config する。

$START_HOOK .= q{
  use Encode qw(decode);
  use Jcode;
  my($subject) ;
  $subject = $Envelope{'h:subject:'} ;
  $subject = decode ('MIME-header', $subject) ;
  $subject =~ s/\[MLname:[0-9]+\]//g;
  $subject = jcode($subject)->jis ;
  $subject = jcode($subject)->mime_encode("jis");
  $Envelope{'h:Subject:'} = $subject ;
};

MIME エンコードするまえに jis にしているが、ここは utf-8 とかでもいいのかもしれない。自前でタグも除去しているが、適当すぎるので、fml 本体に任せた方がいいかも。というか、小生 Perl ははっきり言ってさっぱりわからんので、Jcode や Encode の使い方等含め、恐らく無駄やおかしいことをしているかも。まぁ、異常がでたら対策を考えよう。

なぜか Jcode::convert($subject,"jis") とかでは全く文字コードが変換されず、はまってしまった。オブジェクト指向的書き方をして、なんとか動くようになったわけだが。理由はわからず。お陰でテストメールを 100 通くらいは送ったような。

とりあえず暫く様子を見る。

途中で jis にするのが結構まずい様子。Subject の途中に "jis" とか勝手に入ってしまう。ので、
  $subject = jcode($subject)->jis ;
  $subject = jcode($subject)->mime_encode("jis");

の所は、
  $subject = jcode($subject)->mime_encode;

に簡略化した。この方が上手く行ってる感あり。

トラックバック - http://d.hatena.ne.jp/umonist/20130830/p1
リンク元