ezmlmはやめときゃよかったね

とりあえず、なんとかかんとか運用を開始したezmlmですが、macユーザから件名が化けるとお叱りを受けた。
ここで作ったフィルタのせいなんだけど、考えてみればそりゃそーだ。decodeだけして元に戻してなかった。
というわけでこんな感じに修正しました。

vi /usr/local/bin/ezmlm/rewrite

#!/usr/bin/perl

use strict;

require '/usr/local/bin/ezmlm/mimer.pl';
require '/usr/local/bin/ezmlm/mimew.pl';

if( @ARGV != 1){
    die "Usage: $0 ML-prefix\n"
}

my $flag = 1;

while( my $line =  ){
    if( $flag == 1){
        if( $line =~ /^Subject: / ){
            $flag = 0;
            $line = mimedecode($line);
            $line =~ s/^Subject:\s(R[Ee]:\s*)*\[$ARGV[0]:\s*[0-9][0-9]*\]\s*(R[Ee]:\s*)*(.*)/Subject: $1$2$3/;
            $line =~ s/^Subject:\s(F[Ww]:\s*)*\[$ARGV[0]:\s*[0-9][0-9]*\]\s*(F[Ww]:\s*)*(.*)/Subject: $1$2$3/;
            $line = mimeencode($line);
        }elsif( $line =~ /^$/){
            $flag = 0;
        }
    }
    print $line;
}