[Mew-dist 2094] Re: imls の Scan Format

[AOSASA Shigeru]

青笹です。

Motonori Nakamura <motonori at example.com> writes:

> 基本は dot.im/scan.sbr を参考にしてください、ということになっているの
> ですが、私はこんなのを使ってるよん、っていうサンプルを提供しても良い
> という方はお送り頂けると、一緒に配布できて嬉しいかもしれません。

メーリングリストのメッセージの Subject: には [Mew-dist ???] などが
先頭に付いてたりしますが、+inbox 以外では邪魔なのでフォルダごとに
指定したパターンを取り除くこんな scan.sbr を使っています。

--- scan.sbr ここから ---
%subject_substitute_list = (
		'+ML/mew-dist'  => 's/\[Mew-dist [1-9][0-9]*\] //g',
		'+ML/installer' => 's/\[installer [1-9][0-9]*\] //g',
		'+ML/ptl'	=> 's/\[ptl [1-9][0-9]*\] //g',
		'+ML/j2'	=> 's/j2 Digest //'
		);

sub scan_sub {
    local ($href) = shift;

    my($folder, $pattern);
    my($eval_string);

    $folder = $href->{'folder'};
    $pattern = $subject_substitute_list{$folder};

    if ($pattern ne '') {
	$eval_string = "\$href->{'subject:'} =~ $pattern;";
	eval "$eval_string";
	$herf->{'indent-subject:'} = $href->{'indent:'} . $href->{'subject:'};
    }
}

1;
--- ここまで ---

--
AOSASA Shigeru <aozasa at example.com>
1b 24 28 42 40 44 3a 7b 1b 28 42 20 1b 24 28 42 4c 50 1b 28 42 # c-text