From 54cf2f199cd8b5ff1f6a24baa4a51aef19ddb055 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 24 Feb 2002 13:18:25 +0000 Subject: [PATCH] Comment out setting of wl-draft-reply-with*-argument-list for avoiding confusion (it is inverse of default setting). --- samples/en/dot.wl | 26 +++++++++++++------------- samples/ja/dot.wl | 26 +++++++++++++------------- 2 files changed, 26 insertions(+), 26 deletions(-) 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"))))) ;;; [[ メッセージ表示の設定 ]] -- 1.7.10.4