[mew-dist 20170] Re: Cc: mew-mail-address-list

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 20168] Re: Cc: mew-mail-address-list
Message-ID: <20020128.200137.125096642.kazu at example.com>
Date: Mon, 28 Jan 2002 20:01:37 +0900 (JST)

kazu> > Mew の mew-mail-address-list で summary に * マークをつける機能って
kazu> > Cc: の自分のアドレスには効果がないように思うのですが、正解?
kazu> > くつようになるととても幸せになるんだけど、どうでしょう?
kazu> 
kazu> Cc: でも効くはずです。

mew-scan-form-mark() で Cc: みていないから、だめでしょう。

個人的には、mew-scan-form-mark-review => nil なので、Cc: を対象
とするか否かはどちらでも良いのですが、寄生虫モードならこんな感じ
ですね。

(add-hook 'mew-init-hook
	  (lambda ()
	    (setq mew-scan-form-mark-review t)
	    (setq mew-scan-form-header '((-5 num) my-mark))
	    (unless (member "Cc:" mew-scan-fields)
	      (setq mew-scan-fields (append  mew-scan-fields '("Cc:")))
	      (setq mew-scan-fields-alias (append mew-scan-fields-alias '("CC"))))))

(defun mew-scan-form-my-mark ()
  (let ((mark (mew-scan-form-mark)) review)
    (when (string= mark " ")
      (let* ((mew-header-max-depth nil)
	     (cc (mew-addrstr-parse-address-list (MEW-CC))))
	(catch 'loop
	  (while cc
	    (if (mew-is-my-address mew-regex-my-address-list (car cc))
		(throw 'loop (setq review t)))
	    (setq cc (cdr cc))))))
    (cond
     (review (char-to-string mew-mark-review))
     (t	mark))))

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