update wl-draft-reply-*-argument-list

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 350cf3b..417741c 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -285,25 +285,32 @@
 ;      ("Newsgroups" . (nil nil ("Newsgroups")))
 ;      ("Reply-To" . (("Reply-To") nil nil))
 ;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      (wl-draft-self-reply-p . (("To") ("Cc") 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")))))
-
 ;; 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")))
+;      '(((wl-draft-self-reply-p
+;        "Followup-To") . (("To") ("Cc") ("Followup-To")))
+;      ((wl-draft-self-reply-p
+;        "Newsgroups") . (("To") ("Cc") ("Newsgroups")))
+;      ((wl-draft-self-reply-p
+;        "From") . (("To") ("Cc") nil))
+;      ("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")))))
+;(setq wl-draft-reply-with-argument-list
+;      '(((wl-draft-self-reply-p
+;        "Followup-To") . (("To") ("Cc") ("Followup-To")))
+;      ((wl-draft-self-reply-p
+;        "Newsgroups") . (("To") ("Cc") ("Newsgroups")))
+;      ((wl-draft-self-reply-p
+;        "From") . (("To") ("Cc") nil))
+;      ("Reply-To" . (("Reply-To") nil nil))
+;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      ("From" . (("From") nil nil))))
+
 
 ;;; [[ Message Display Settings ]]
 

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 34a0450..f22dc17 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -291,25 +291,31 @@
 ;      ("Newsgroups" . (nil nil ("Newsgroups")))
 ;      ("Reply-To" . (("Reply-To") nil nil))
 ;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      (wl-draft-self-reply-p . (("To") ("Cc") 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")))))
-
 ;; 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")))
+;      '(((wl-draft-self-reply-p
+;        "Followup-To") . (("To") ("Cc") ("Followup-To")))
+;      ((wl-draft-self-reply-p
+;        "Newsgroups") . (("To") ("Cc") ("Newsgroups")))
+;      ((wl-draft-self-reply-p
+;        "From") . (("To") ("Cc") nil))
+;      ("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")))))
+;(setq wl-draft-reply-with-argument-list
+;      '(((wl-draft-self-reply-p
+;        "Followup-To") . (("To") ("Cc") ("Followup-To")))
+;      ((wl-draft-self-reply-p
+;        "Newsgroups") . (("To") ("Cc") ("Newsgroups")))
+;      ((wl-draft-self-reply-p
+;        "From") . (("To") ("Cc") nil))
+;      ("Reply-To" . (("Reply-To") nil nil))
+;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      ("From" . (("From") nil nil))))
 
 
 ;;; [[ \e$B%a%C%;!<%8I=<($N@_Dj\e(B ]]