Comment out setting of wl-draft-reply-with*-argument-list for

avoiding confusion (it is inverse of default setting).

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index cdf0de1..86b5376 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -291,21 +291,21 @@
 
 ;; "a" (without-argument) reply to author (Reply-To or From).
 ;; if 'X-ML-Name' and 'Reply-To' exists, reply to 'Reply-To'.
-(setq wl-draft-reply-without-argument-list
-      '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
-       ("X-ML-Name" . (("To" "Cc") nil nil))
-       ("Followup-To" . (nil nil ("Followup-To")))
-       ("Newsgroups" . (nil nil ("Newsgroups")))
-       ("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
+;      '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
+;      ("X-ML-Name" . (("To" "Cc") nil nil))
+;      ("Followup-To" . (nil nil ("Followup-To")))
+;      ("Newsgroups" . (nil nil ("Newsgroups")))
+;      ("Reply-To" . (("Reply-To") nil nil))
+;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      ("From" . (("From") nil nil))))
 
 ;; "C-u a" (with-argument) reply to all.
-(setq wl-draft-reply-with-argument-list
-      '(("Followup-To" . (("From") nil ("Followup-To")))
-       ("Newsgroups" . (("From") nil ("Newsgroups")))
-       ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
-       ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+;(setq wl-draft-reply-with-argument-list
+;      '(("Followup-To" . (("From") nil ("Followup-To")))
+;      ("Newsgroups" . (("From") nil ("Newsgroups")))
+;      ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+;      ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
 
 
 ;;; [[ Message Display Settings ]]

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 20c0198..a5feddc 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -297,21 +297,21 @@
 ;; "a" (without-argument)\e$B$G$O\e(B Reply-To: \e$B$d\e(B From: \e$B$J$I$G;XDj$5$l$?M#0l?M\e(B
 ;; \e$B$^$?$OM#0l$D$NEj9F@h$KJV?.$9$k!#$^$?!$\e(BX-ML-Name: \e$B$H\e(B Reply-To: \e$B$,$D$$\e(B
 ;; \e$B$F$$$k$J$i\e(B Reply-To: \e$B08$K$9$k!#\e(B
-(setq wl-draft-reply-without-argument-list
-      '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
-       ("X-ML-Name" . (("To" "Cc") nil nil))
-       ("Followup-To" . (nil nil ("Followup-To")))
-       ("Newsgroups" . (nil nil ("Newsgroups")))
-       ("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
+;      '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
+;      ("X-ML-Name" . (("To" "Cc") nil nil))
+;      ("Followup-To" . (nil nil ("Followup-To")))
+;      ("Newsgroups" . (nil nil ("Newsgroups")))
+;      ("Reply-To" . (("Reply-To") nil nil))
+;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      ("From" . (("From") nil nil))))
 
 ;; "C-u a" (with-argument)\e$B$G$"$l$P4X78$9$kA4$F$N?M!&Ej9F@h$KJV?.$9$k!#\e(B
-(setq wl-draft-reply-with-argument-list
-      '(("Followup-To" . (("From") nil ("Followup-To")))
-       ("Newsgroups" . (("From") nil ("Newsgroups")))
-       ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
-       ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+;(setq wl-draft-reply-with-argument-list
+;      '(("Followup-To" . (("From") nil ("Followup-To")))
+;      ("Newsgroups" . (("From") nil ("Newsgroups")))
+;      ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+;      ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
 
 
 ;;; [[ \e$B%a%C%;!<%8I=<($N@_Dj\e(B ]]