[Mew-dist 15186] Re: 過去のmailアドレスから送信したmailのサマリ表示方法

[Norio Suzuki]

こんばんは。鈴木教郎です。

> From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
> Date: Tue, 28 Nov 2000 17:39:18 +0900
>> Message-ID: <20001128.173916.971161962.z1980163 at example.com>

> mew-mail-address-list は、「自分のアドレス」と判定すべきアドレスの正規
> 表現のリストとなりますので、過去に遡って、自分のアドレスだったものも含
> めて設定すれば、お望みの結果を得ることができるでしょう。

オオー!! こんな機能があるなんて知らなかったです。info だけでは、こんな
使い方があることに気が付きませんでした。

仕方がないので、こんなのを書いて使っていました。mew-mail-address-list 
よりちょっといいのは、NetNews に投稿したのは、Newsgroups を表示してく
れることです。

;; override for +Backup
(setq mew-scan-fields
      '("Folder:" "Filename:" "Subject:" "Date:" "From:" "To:"
	"Content-Type:" "Message-Id:" "X-Mew-UIDL:" "Newsgroups:"))

(setq mew-scan-fields-alias
      '("FLD" "NUM" "SUBJ" "DATE" "FROM" "TO" "CT" "ID" "UIDL" "NEWS"))

(defun mew-scan-form-to ()
  (let ((func (if mew-addrbook-for-summary
		  (mew-addrbook-func mew-addrbook-for-summary)))
	(FROM (MEW-FROM)) (TO (MEW-TO))
	from to nickname ret)
    (cond ((not (string= TO ""))
	   (setq to (mew-addrstr-parse-address TO))
	   (if (and to func (setq nickname (funcall func to)))
	       (setq ret (concat "To:" nickname))
	     (setq ret (concat "To:" TO)))
	   (mew-replace-white-space ret))
	  ((not (string= (MEW-NEWS) ""))
	   (setq ret (concat "Ng:" (MEW-NEWS))))
	   ;(mew-replace-white-space ret))
	  (t
	   (setq ret "* VOID *"))
	  )))

; scan-form
(setq mew-scan-form-list  
      '(
;	(("+inbox")
;	 (type (5 date) " " (7 to) " " (14 from) " " (0 subj)))
	(("+Backup")
	 (type (5 date) " " (14 to) " " (0 subj)))
	(("+draft")
	 (type (5 date) " " (24 to) " " (0 subj)))
	(t
	 (type (5 date) " " (14 from) " " (0 subj)))
	))
-- 
鈴木教郎
E-Mail: nosuzuki at example.com