[Mew-dist 10282] Re: mew-fromme-to-list

[Takuro Horikawa]

堀川です。


From: Hideaki MORINAKA <Hideaki.Morinaka at example.com>
Subject: [Mew-dist 10260] mew-fromme-to-list
Date: Fri, 20 Aug 1999 13:37:40 +0900

> 自分が出した(他人宛の)メイルに対してリプライ(aもしくはA)すると、
> 返答するメッセージのTo:に自分のアドレスが入ってしまいます。

すいません、似たような話しなのですが、前からTo:に自分のアドレスが入る
時がありまして、mew-draft.elを読むと、mew-draft-header の to 引数の先
頭に自分のアドレスが入る時は、削除されません。

cc の場合は問題無いです。

で、to の場合も cc と似たような処理にした所、自分が消えてくれました。

以下が、patchです。
----------------------------------------
堀川　拓郎　takuroho at example.com
-------------- next part --------------
*** /usr/home/horikawa/tmp/mew-1.94b52.org/mew-draft.el	Wed Aug 18 13:04:49 1999
--- mew-draft.el	Fri Aug 20 16:14:38 1999
***************
*** 559,566 ****
        (insert mew-to: " " tf "\n"))
       ;; To: collected by reply
       ((listp tf)
!       (insert mew-to: " " (car tf))
!       (setq del (cons (concat "^" (regexp-quote (car tf)) "$") del))
        (while tf
  	(setq c (car tf) tf (cdr tf))
  	(if (mew-is-my-address del c)
--- 559,573 ----
        (insert mew-to: " " tf "\n"))
       ;; To: collected by reply
       ((listp tf)
!       (catch 'first
! 	(while tf
! 	  (setq c (car tf) tf (cdr tf))
! 	  (if (mew-is-my-address del c)
! 	      ()
! 	    (insert mew-to: " " c)
! 	    (setq del (cons (concat "^" (regexp-quote c) "$") del))
! 	    (throw 'first nil))
! 	  ))
        (while tf
  	(setq c (car tf) tf (cdr tf))
  	(if (mew-is-my-address del c)