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

[TOYAMA Sumio]

外山＠東京大学です。

On Tue, 16 Sep 1997 23:09:10 +0900
Motonori Nakamura <motonori at example.com> wrote:

motonori> こんなかんじでしょうか。
perlのreferenceを使ったことが無いので、変な理解をしているかも知
れませんが...

motonori> $symbol_table{'e'} = 'fromaddr';
ここで、自分の使いたいマーク(e)と、適当なkey(fromaddr)を決める。
あとは、
scan_subの中の第1引数を取ってきて($href)、
$href->{'key'}に、実際に%eと置きかえたい文字列を代入する。
といった感じでしょうか？

motonori> ですが、私はこんなのを使ってるよん、っていうサンプルを提供しても良い
motonori> という方はお送り頂けると、一緒に配布できて嬉しいかもしれません。
実は、今まではscan.formをいじって、メーリングリストによって適当
にマークを付けるようにして、を元にsummaryに色を付けていたのです
が、imになってからどうすればいいのか分からなかったのです(^^;;

こんなことしてる人が他にいるのか分かりませんが、こんな風にやった
ら出来ました。これは、To:がmew-distのメールにWマークを付け、To:
がskkのメールにはKマークを付けるものです。
＃当たり前といえば当たり前なんですが...一応御参考まで。
===================== ここから ====================
$symbol_table{'r'} = 'my_marks';
sub scan_sub {
  local ($href) = shift;
  my $toaddr = &extract_addr($href->{'to'});
  $href->{'my_marks'} = ' ';
  #ここから、マークを付けたい条件を書く。
  ($toaddr =~ /^mew-dist\@/) && ($href->{'my_marks'} = 'W');
  ($toaddr =~ /^skk\@/) && ($href->{'my_marks'} = 'K');
}
1;
===================== ここまで ====================

それでは、失礼します。

_/_/_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/_/_/
_/_/_/      東京大学  理学部  情報科学科  ４年      _/_/_/
_/_/_/                  外山  純生                  _/_/_/
_/_/_/           sumio at example.com           _/_/_/
_/_/_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/_/_/