[mew-dist 22929] Re: mew-draft-header

[Tatsuya Kinoshita]

On January 20, 2003, [mew-dist 22912],
Kazu Yamamoto <kazu at example.com> wrote:

> 極端な例としては
> 	To: kazu
> 	From: kazu
> に返答すると、木下さんのコードでは、
> 	To:
> 	From: kazu
> と To: が空になってしまいます。

mew-vars.el:

| (defvar mew-reply-fromme-keep-my-address t
|   "*When the message to be replied is sent/posted by ME, this variable
| is checked. If non-nil, my address on a new To:/Cc: is not deleted.
| Otherwise, my address is deleted like normal cases. ")

Fromが自分なら自分のアドレスを消したくない、重複するアドレスを消す
のはかまわない、ということであれば、下記のコードでどうでしょうか。
(mew-reply-fromme-alistにReply-To等を指定した場合に有用です)

-- 
木下達也

--- mew-draft.el	2003/01/20 05:33:03	1.84
+++ mew-draft.el	2003/01/20 12:11:58
@@ -338,7 +338,8 @@
 ;; cc -- string or list
 ;; nl -- one empty line under "----", which is necessary if
 ;;      attachment is prepared
-  (let ((del mew-regex-my-address-list) ;; deleting list for Cc:
+  (let ((del (unless (and fromme mew-reply-fromme-keep-my-address)
+	       mew-regex-my-address-list)) ;; deleting list for Cc:
 	case body)
     (goto-char (point-min))
     (if newsgroups
@@ -357,17 +358,13 @@
 	(mew-draft-header-insert mew-to: to))
        ;; To: collected by reply
        ((listp to)
-	(if (and fromme mew-reply-fromme-keep-my-address)
-	    (mew-insert-address-list2 mew-to: to)
-	  (setq del (mew-insert-address-list mew-to: to del t)))))
+	(setq del (mew-insert-address-list mew-to: to del t))))
       (cond
        ((null cc) ()) ;; do nothing 
        ((stringp cc) ;; Cc: inputed from the mini-buffer.
 	(mew-draft-header-insert mew-cc: cc))
        ((listp cc) ;; Cc: collected by reply.
-	(if (and fromme mew-reply-fromme-keep-my-address)
-	    (mew-insert-address-list2 mew-cc: cc)
-	  (mew-insert-address-list mew-cc: cc del nil)))))
+	(mew-insert-address-list mew-cc: cc del nil))))
     (if mew-case-guess-when-prepared
 	(mew-draft-set-case-by-guess))
     (setq case (mew-tinfo-get-case))