[mew-dist 22988] Re: Summary モードでの書式使い分け

[Hideyuki SHIRAI ( 白井秀行 )]

From: Yu Ooasa <you at example.com> さん曰く
Subject: [mew-dist 22987] Re: Summary モードでの書式使い分け
Message-ID: <20030123.180637.27850223.you at example.com>
Date: Thu, 23 Jan 2003 18:06:37 +0900 (JST)

> >としているのですが、特定の ML … rt100i-users ではここの運用ポリシーに
> >より、From が以下のようにアドレス部は ML 管理者のものにいつも固定と
> >なっているのです。
> >
> >  From: (Kazumasa Gotoh {kgotoh at example.com}) <hirose at example.com>  
>
> >これを +rt100i-users フォルダでは nickname 設定にすることが
> >できれば便利なのですが…
> 
> mew-scan-form-list で。というだけでも何なので
> 弓岡さんのを元に、余計な機能を付けて以前投稿したものを置いときます
> 
> http://www.dearest.net/~you/freebsd/mlsubj.el

大村さんの設定に加えて rt100i のときだけ、'(address) を
'(nickname) にしなきゃいけないので、

(defun mew-scan-form-rt100i-from ()
  (let ((mew-scan-form-extract-rule '(nickname))
	(FROM (MEW-FROM)) (TO (MEW-TO))
	(from (or (mew-addrstr-parse-address FROM) "")))
 ;; あとは mew-scan.el の mew-scan-from-from() と一緒

などを定義して、mew-scan-form-list の該当部分を rt100i-from にす
る、が必要ですね。


もし、hirose at example.com さんからのメールはいつでもどこのフォルダで
も '(nickname) にしたいのなら、

(defun mew-scan-form-my-from ()
  (let* ((mew-scan-form-extract-rule mew-scan-form-extract-rule)
	 (FROM (MEW-FROM)) (TO (MEW-TO))
	 (from (or (mew-addrstr-parse-address FROM) "")))
    (when (member (downcase from) '("hirose at example.com")) ;; nickname にしたい人を追加
      (setq mew-scan-form-extract-rule '(nickname)))
 ;; あとは mew-scan.el の mew-scan-from-from() と一緒

と定義して、すべての form 部分で my-from を使う、という手もあり
ます。

-- 
白井秀行 (mailto:shirai at example.com)