[Mew-dist 2134] Re: refile

[YAMAGUCHI, Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

>>> In article <19970918184253C.you at example.com>,
>>>    Yamashita Yuzo <you at example.com> writes:

  you> になってしまいますよね。これ、前者に refile して欲しいことがほとんどな
  you> のは、私だけでしょうか？ （「To: 誰か」を「+from 誰か」に refile する
  you> のは、ちょっと変かな...）

私は使わないので、即席でかなりいいかげんですが…。
＃関数名もいいかげんだし、ろくに試してもいません。 ^^;

こんなのをmew-refile-guess-controlのmew-refile-guess-by-default直前に
入れるのはダメでしょうか?
＃mew-refile-ctrl-throwもあったほうがいいのかも?

(defun mew-refile-guess-by-my-mail ()
  (let ((from (downcase (or (car (mew-header-address-collect '("From:"))) "")))
	(to-cc (mew-header-address-collect '("To:" "Cc:" "Apparently-To:")))
	ret return)
    (if (and mew-folders-default-folder
	     (not (equal "" mew-folders-default-folder)))
	(while to-cc
	  (setq ret (concat (file-name-as-directory mew-folders-default-folder)
			    (downcase (mew-header-delete-at (car to-cc)))))
	  (catch 'tag
	    (mapcar
	     (lambda (adr)
	       (if (equal (downcase adr) from)
		   (progn
		     (setq return (append return (list ret)))
		     (throw 'tag nil))))
	     mew-mail-address-list)
	    nil)
	  (setq to-cc (cdr to-cc))))
    (mew-refile-list-uniq return)))


  you> で、単に +from を無視するのではなく、他に refile する候補があった時に
  you> のみ +from を無視するという仕様にするとよいと思うのですが、いかがでしょ
  you> うか？

これとは確実に優先順位が違っちゃいますね…。

でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平