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

[Akihiro Fukano / 深野 哲洋]

深野＠JPNICです。
皆様ありがとうございました。

~/.im/Config に
Form=%5n%M%m%d %-16a  %s <<%b
Address=fukano at example.com,fukano
ScanSbr=scan.sbr

~/.im/scan.sbr に
$symbol_table{'a'} = 'address';

sub scan_sub {
    local ($href) = shift;

    if (my_addr($href->{'from'})) {
        if ($href->{'to'}) {
            my $to = &friendly_addr($href->{'to'}, 0);
            if ($to) {
                $href->{'address'} = 'To:' . $to;
            }
        } elsif ($href->{'newsgroups'}) {
            $href->{'address'} = 'Ng:' .  $href->{'newsgroups'};
        }
    }
    $href->{'address'} = &extract_addr($href->{'from'})
          unless ($href->{'address'});
}

1;

として、今のMHのscancompと同じようにできました。



深野 哲洋＠社団法人日本ネットワークインフォメーションセンター