From: okada <okada>
Date: Thu, 19 Dec 2002 13:49:02 +0000 (+0000)
Subject: * wl-vars.el (wl-draft-reply-with-argument-list): Change
X-Git-Tag: wl-2_11_1~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4b7fc298b7e4b93b86dd2530816df92a35f50059;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-draft-reply-with-argument-list): Change
default value.
(wl-draft-reply-without-argument-list): Ditto.
---

diff --git a/NEWS b/NEWS
index ffbb7e1..a4fbe91 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,9 @@
 Wanderlust NEWS -- User-visible changes in Wanderlust.
 
+** Default values of wl-draft-reply-with-argument-list and
+   wl-draft-reply-without-argument-list are changed. 
+   See samples/en/dot.wl.
+
 ** Changed the way to specify configuration of draft buffer window.
    You can choose keep, full or split as values of wl-draft-buffer-style
    and wl-draft-reply-buffer-style.
diff --git a/NEWS.ja b/NEWS.ja
index fe492ec..b0a6c68 100644
--- a/NEWS.ja
+++ b/NEWS.ja
@@ -1,5 +1,8 @@
 Wanderlust NEWS (日本語版) -- User-visible changes in Wanderlust.
 
+** wl-draft-reply-with-argument-list と wl-draft-reply-without-argument-list
+  の初期値が変更されました。以前の設定は、samples/ja/dot.wl を参照ください。
+
 ** ドラフトバッファウィンドウの配置の指定の仕方が変更されました。
    wl-draft-buffer-style と wl-draft-reply-buffer-style に keep,full,split
    のいずれかを指定します。
diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 9cb8805..c2d510d 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -297,6 +297,16 @@
 ;	("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
 ;	("From" . (("From") ("To" "Cc") ("Newsgroups")))))
 
+;; old defaults < 2.11.0
+;(setq wl-draft-reply-with-argument-list
+;      '(("Reply-To" . (("Reply-To") nil nil))
+;	("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;	("From" . (("From") nil nil))))
+;(setq 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" "From") ("Newsgroups")))
+;	("From" . (("From") ("To" "Cc") ("Newsgroups")))))
 
 ;;; [[ Message Display Settings ]]
 
diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 735aeeb..34a0450 100644
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -300,6 +300,17 @@
 ;	("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
 ;	("From" . (("From") ("To" "Cc") ("Newsgroups")))))
 
+;; 2.11.0 以前のデフォルト設定
+;(setq wl-draft-reply-with-argument-list
+;      '(("Reply-To" . (("Reply-To") nil nil))
+;	("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;	("From" . (("From") nil nil))))
+;(setq 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" "From") ("Newsgroups")))
+;	("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+
 
 ;;; [[ メッセージ表示の設定 ]]
 
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 462a097..7bb6f90 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2002-12-19  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-vars.el (wl-draft-reply-with-argument-list): Change
+	default value.
+	(wl-draft-reply-without-argument-list): Ditto.
+
+2002-12-19  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-vars.el (wl-message-buffer-prefetch-depth): Change default value.
 	(wl-message-buffer-prefetch-idle-time): Ditto.
 	(wl-message-buffer-prefetch-folder-type-list): Ditto.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 0cd5e2f..eb65ec2 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -744,8 +744,15 @@ Prepared candidates are 'wl-draft-send-mail-with-smtp,
   :group 'wl-draft)
 
 (defcustom wl-draft-reply-with-argument-list
-  '(("Reply-To" . (("Reply-To") nil nil))
-    ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+  '((("Followup-To" "Mail-Followup-To")
+     . (("Mail-Followup-To") ("From" "To" "Cc") ("Followup-To")))
+    ("Followup-To"
+     . (("From") ("To" "Cc") ("Followup-To")))
+    ("Mail-Followup-To"
+     . (("Mail-Followup-To") ("From" "To" "Cc") ("Newsgroups")))
+    ("Mail-Reply-To" . (("Mail-Reply-To") ("From" "To" "Cc") ("Newsgroups")))
+    ("Reply-To" . (("Reply-To") ("From" "To" "Cc") ("Newsgroups")))
+    ("Newsgroups" . (("From") ("To" "Cc") ("Newsgroups")))
     ("From" . (("From") nil nil)))
   "Alist of cons cell of
 ('field-name' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
@@ -762,10 +769,14 @@ Default is for 'reply-to-author'."
   :group 'wl-draft)
 
 (defcustom wl-draft-reply-without-argument-list
-  '(("Followup-To" . (nil nil ("Followup-To")))
+  '((("Followup-To" "Mail-Followup-To")
+     . (("Mail-Followup-To") nil ("Followup-To")))
+    ("Followup-To" . (nil nil ("Followup-To")))
     ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
-    ("Reply-To" . (("Reply-To") ("To" "Cc" "From") ("Newsgroups")))
-    ("From" . (("From") ("To" "Cc") ("Newsgroups"))))
+    ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+    ("Reply-To" . (("Reply-To") nil nil))
+    ("Newsgroups" . (nil nil ("Newsgroups")))
+    ("From" . (("From") ("To" "Cc") nil)))
   "Alist of cons cell of
 ('field-name' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
 'field-name' is a string.