[Mew-dist 03335] ScanSbr

[ばば ともき]

馬場@阪大です．

IM-78の頃からだったと思うのですが，ScanSbrが動いていない
思うのですが，私の設定がまずいのでしょうか?

IM-76が入っているマシンもあるのでが，
そこではScanSbrは動いています．

参考までに，私が使っているscan.sbrをつけておきます．


  ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
              大阪大学大学院 基礎工学研究科 情報数理系専攻  
            ソフトウェア科学分野 博士前期課程 １年 萩原研究室
                        馬場 大樹(ばば ともき)
                 Email:tomoki-b at example.com
      URL:http://www-hagi.ics.es.osaka-u.ac.jp/~tomoki-b/index.html
  ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

-------------- next part --------------
%subject_substitute_list = (
		'+mew'  => 's/\[Mew-dist [0-9][0-9]*\] //g',
		);

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;