* 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 (file)
--- 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 (file)
--- a/NEWS.ja
+++ b/NEWS.ja
@@ -1,5 +1,8 @@
 Wanderlust NEWS (\e$BF|K\8lHG\e(B) -- User-visible changes in Wanderlust.
 
+** wl-draft-reply-with-argument-list \e$B$H\e(B wl-draft-reply-without-argument-list
+  \e$B$N=i4|CM$,JQ99$5$l$^$7$?!#0JA0$N@_Dj$O!"\e(Bsamples/ja/dot.wl \e$B$r;2>H$/$@$5$$!#\e(B
+
 ** \e$B%I%i%U%H%P%C%U%!%&%#%s%I%&$NG[CV$N;XDj$N;EJ}$,JQ99$5$l$^$7$?!#\e(B
    wl-draft-buffer-style \e$B$H\e(B wl-draft-reply-buffer-style \e$B$K\e(B keep,full,split
    \e$B$N$$$:$l$+$r;XDj$7$^$9!#\e(B

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 9cb8805..c2d510d 100644 (file)
--- 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 (file)
--- 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 \e$B0JA0$N%G%U%)%k%H@_Dj\e(B
+;(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")))))
+
 
 ;;; [[ \e$B%a%C%;!<%8I=<($N@_Dj\e(B ]]
 

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 462a097..7bb6f90 100644 (file)
--- 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 (file)
--- 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.