From: yoichi <yoichi>
Date: Sun, 24 Feb 2002 13:18:25 +0000 (+0000)
Subject: Comment out setting of wl-draft-reply-with*-argument-list for
X-Git-Tag: wl-2_9_8~41
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=54cf2f199cd8b5ff1f6a24baa4a51aef19ddb055;p=elisp%2Fwanderlust.git

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
--- 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
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -297,21 +297,21 @@
 ;; "a" (without-argument)では Reply-To: や From: などで指定された唯一人
 ;; または唯一つの投稿先に返信する。また，X-ML-Name: と 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)であれば関係する全ての人・投稿先に返信する。
-(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")))))
 
 
 ;;; [[ メッセージ表示の設定 ]]