From: yoichi <yoichi>
Date: Mon, 6 Jan 2003 16:29:51 +0000 (+0000)
Subject: update wl-draft-reply-*-argument-list
X-Git-Tag: merged-trunk-to-elmo-mark-14~43
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ed5fd4b359fca51c29a7e59a723a651698855e2;p=elisp%2Fwanderlust.git

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

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 350cf3b..417741c 100644
--- 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
--- 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)であれば関係する全ての人・投稿先に返信する。
-;(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 以前のデフォルト設定
-;(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))))
 
 
 ;;; [[ メッセージ表示の設定 ]]