[mew-dist 27598] Re: mew-ask-to/mew-ask-cc

[Takashi Masuda ( 増田貴士 )]

増田です。

From: KOIE Hidetaka (鯉江英隆) <hide at example.com>
Date: Tue, 03 Apr 2007 11:26:17 +0900 (JST)
Subject: [mew-dist 27597] mew-ask-to/mew-ask-cc

> それから某所にて
> infoにmew-ask-to/mew-ask-ccが載ってないと
> 苦情がありました。

すみません、これ私です。(^^;

ところで、mew-ask-to/mew-ask-cc が t の時、mew-send() 等で入力した自分
のアドレスは削除されてしまいますが、削除されない方が自然ではないでしょ
うか？

--
Takashi Masuda <masutaka at example.com>
-------------- next part --------------
Index: mew-draft.el
===================================================================
RCS file: /cvsmew/mew/mew-draft.el,v
retrieving revision 1.132
diff -u -r1.132 mew-draft.el
--- mew-draft.el	6 Mar 2007 05:13:38 -0000	1.132
+++ mew-draft.el	3 Apr 2007 14:13:57 -0000
@@ -371,13 +371,13 @@
 	(mew-draft-header-insert mew-to: to))
        ;; To: collected by reply
        ((listp to)
-	(setq del (mew-insert-address-list mew-to: to del t))))
+	(setq del (mew-insert-address-list mew-to: to (if mew-ask-to nil del) t))))
       (cond
        ((null cc) ()) ;; do nothing 
        ((stringp cc) ;; Cc: specified from the mini-buffer.
 	(mew-draft-header-insert mew-cc: cc))
        ((listp cc) ;; Cc: collected by reply.
-	(mew-insert-address-list mew-cc: cc del nil))))
+	(mew-insert-address-list mew-cc: cc (if mew-ask-cc nil del) nil))))
     (if mew-case-guess-when-prepared
 	(mew-draft-set-case-by-guess))
     (setq case (mew-tinfo-get-case))