[Mew-dist 04822] Decide To: and Cc: at reply

[Toru]

はじめてメールさせていただきます。
小川といいます。

Summaryでも"a"もしくは"A"による返信時の To: 及び Cc: の決定で、
Reply-To: がなく Mail-Followup-To: のみしかないメーリングリストで
困ってしまいました。

確認になります、が現状では
  Reply-To:ヘッダをみる
     Reply-To: があったら、mew-replyto-to-list と mew-replyto-cc-list から決定
     Reply-To: がなければ、mew-noreplyto-to-list と mew-noreplyto-cc-list から決定
となっていますよね。

これだと、どうしても mew-noreplyto-to-list には"From:"を
いれておかなければならず上記のような Mail-Followup-To: のみしかない場合
mew-noreply-to-listに"Mail-Followup-To:"をいれると
To:には From: と Mail-Followup-To: の両方が使われてしまいます。

そこで、
  Reply-To:ヘッダをみる
     Reply-To: があったら、mew-replyto-to-list と mew-replyto-cc-list から決定
     Reply-To: がなければ、mew-noreply-to-list をみる。
        mew-noreplyto-to-list で使えるものがあれば\
         mew-noreplyto-to-list と mew-noreplyto-cc-list から決定
        mew-noreplyto-to-list で使えるものがなければ\
         From:を使用
としてみました。

いかがでしょうか？

それでは

TORU>>>>>>>>>>>>>>>>>>>>>>
toru at example.com
<<<<<<<<<<<<<<<<<<<<<OGAWA

-------------- next part --------------
--- mew-summary.el.orig	Sat May 23 23:07:19 1998
+++ mew-summary.el	Sat May 23 23:46:58 1998
@@ -1198,9 +1198,11 @@
 	       ((mew-header-get-value "Reply-To:")
 		(setq to (mew-header-address-collect mew-replyto-to-list))
 		(setq cc (mew-header-address-collect mew-replyto-cc-list)))
-	       (t
+	       ((mew-header-address-collect mew-noreplyto-to-list)
 		(setq to (mew-header-address-collect mew-noreplyto-to-list))
 		(setq cc (mew-header-address-collect mew-noreplyto-cc-list)))
+	       (t
+	        (setq to (mew-header-address-collect '("From:"))))
 	       )
 	      )
 	     )