From 6ed5fd4b359fca51c29a7e59a723a651698855e2 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 6 Jan 2003 16:29:51 +0000 Subject: [PATCH] update wl-draft-reply-*-argument-list --- samples/en/dot.wl | 31 +++++++++++++++++++------------ samples/ja/dot.wl | 30 ++++++++++++++++++------------ 2 files changed, 37 insertions(+), 24 deletions(-) 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)))) ;;; [[ メッセージ表示の設定 ]] -- 1.7.10.4