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

[Yoshinobu Yamasoto]

こんにちは，山外＠岡大です．

From: TOYAMA Sumio <sumio at example.com>
Subject: [Mew-dist 2066] Re: imlsの Scan Format
Date: Wed, 17 Sep 1997 00:15:27 +0900

> > ですが、私はこんなのを使ってるよん、っていうサンプルを提供しても良い
> > という方はお送り頂けると、一緒に配布できて嬉しいかもしれません。
> 実は、今まではscan.formをいじって、メーリングリストによって適当
> にマークを付けるようにして、を元にsummaryに色を付けていたのです
> が、imになってからどうすればいいのか分からなかったのです(^^;;
> 
> こんなことしてる人が他にいるのか分かりませんが、こんな風にやった
> ら出来ました。これは、To:がmew-distのメールにWマークを付け、To:
> がskkのメールにはKマークを付けるものです。
> ＃当たり前といえば当たり前なんですが...一応御参考まで。

えと，前にメーリングリストからのメイルに L マークをつけてる方がおられ
たような気がするのですが，私もこれは便利だと思ってscan.sbr用に書き直し
て使っていました．でも，MLごとにマークを決めるのはもっと便利そうですね．
早速，利用させていただきます．

他には，曜日を漢字ででるようにしているのですが，以下のようにしています．

----------- ここから -----------

$symbol_table{'W'} = 'wdate:';
$NEEDSAFE_HASH{'wdate:'} = 1;    # if the field contains JIS characters

sub scan_sub {
	local ($href) = shift;

    if (${$href}{'date'} =~ /([A-Z][a-z][a-z]), /) {
        if ($+ eq 'Mon') {
            ${$href}{'wdate:'} = '月';
        } elsif ($+ eq 'Tue') {
            ${$href}{'wdate:'} = '火';
        } elsif ($+ eq 'Wed') {
            ${$href}{'wdate:'} = '水';
        } elsif ($+ eq 'Thu') {
            ${$href}{'wdate:'} = '木';
        } elsif ($+ eq 'Fri') {
            ${$href}{'wdate:'} = '金';
        } elsif ($+ eq 'Sat') {
            ${$href}{'wdate:'} = '土';
        } elsif ($+ eq 'Sun') {
            ${$href}{'wdate:'} = '日';
        } else {
            ${$href}{'wdate:'} = "$+";
        }
    } else {
        ${$href}{'wdate:'} = '??';
    }
}

--
 岡山大学大学院自然科学研究科知能開発科学専攻
     山外 芳伸 (yamasoto at example.com)
 http://www.in.it.okayama-u.ac.jp/~yamasoto/