From: teranisi <teranisi>
Date: Tue, 17 Oct 2000 03:54:07 +0000 (+0000)
Subject: * wl-vars.el (wl-draft-reply-without-argument-list):
X-Git-Tag: wl-2_4-root~146
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6a2473049f688c59b55375baa3471c140913e31a;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-draft-reply-without-argument-list):
Changed default value to consider `Reply-To:'.
(Advised by TAKAHASHI Kaoru <kaoru@kaisei.org>)
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 134d4ff..9aad515 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2000-10-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-vars.el (wl-draft-reply-without-argument-list):
+	Changed default value to consider `Reply-To:'.
+	(Advised by TAKAHASHI Kaoru <kaoru@kaisei.org>)
+
 	* wl-summary.el (wl-summary-msgdb-load-async): Enclose
 	elmo-imap4-get-session with unwind-protect.
 	Don't cause error.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index ba71247..5172c31 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -545,6 +545,7 @@ Default is for 'reply-to-author'."
 (defcustom wl-draft-reply-without-argument-list
   '(("Followup-To" . (nil nil ("Followup-To")))
     ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+    ("Reply-To" . (("Reply-To") ("To" "Cc") ("Newsgroups")))
     ("From" . (("From") ("To" "Cc") ("Newsgroups"))))
   "Alist of cons cell of
 ('field-name' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))