[Mew-dist 10645] Re: summary の表示をカスタマイズしたい

[Yoshinori Sakamoto]

坂本＠奈良県工業技術センターです。

From: 須崎有康 Kuniyasu SUZAKI <suzaki at example.com>
Subject: [Mew-dist 10644] summary の表示をカスタマイズしたい
Date: Tue, 14 Sep 1999 14:45:21 +0900

> 
> 須崎＠電総研です。このメイリングリストに入りました。よろしくお願いします。
> 
> summary の表示をカスタマイズしたいのですが教えてください。
> 
>  5239  09/13 herohero at example.com [*****-users:57901 丁寧なアドバ
>  5240  09/14 wahaha at example.com [*****-users:57902 はじめまして。
> 
> のようにメイリングリストによっては subject の先頭にナンバリングをされ
> ているのでこの部分の表示を消すか、あるいは subject だけを大きく表示す
> る方法を教えてください。
> 簡単なことだと思って http://www.mew.org を探してみたのですが、見つかり
> ませんでした。

たしか、im パッケージのサンプルにあったと思います。

1. ~/.im/Config 中で

ScanSbr=scan.sbr		# hooks for imget/imls

2. ~/.im/scan.sbr の例

------------------------------------------------------------------------
%subject_substitute_list = (
		'+mew-dist'  => 's/\[Mew-dist [0-9]*\] //g',
		'+mew-win32'  => 's/\[Mew-Win32 [0-9]*\] //g',
		'+infotalk'	=> 's/\[infotalk\,[0-9]*\] //g',
		'+vine-users' => 's/\[vine-users:[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;

------------------------------------------------------------------------

scan.sbr の正規表現のところを工夫すれば、結構様々なケースに対応できま
す(^_^)。

＿      ＿ 
‖＼    ‖ - Nara Prefectural Institute of Industrial Technology -+
‖ 奈良県工業技術センター 【坂本佳則】<yosino-s at example.com>|
‖    ＼‖ＩＩＴ     Boldly go where no one has gone before....   | 
￣      ￣ -------------------------------------------------------+