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

[elisp/wanderlust.git] / samples / ja / dot.wl

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 5b1c25a..f22dc17 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -176,6 +176,12 @@
 
 ;;; [[ \e$BFC<l$J@_Dj\e(B ]]
 
+;; \e$B%5%^%j$G$N\e(B "b" \e$B$r%a%C%;!<%8:FAw$K$9$k\e(B (mutt \e$B$N\e(B "b"ounce)
+;(add-hook 'wl-summary-mode-hook
+;        '(lambda ()
+;           (define-key wl-summary-mode-map "b" 'wl-summary-resend-message)
+;           ))
+
 ;; \e$B%0%k!<%W$r\e(Bcheck\e$B$7$?8e$KL$FI$,$"$k%U%)%k%@$N%0%k!<%W$r<+F0E*$K3+$/\e(B
 ;(add-hook 'wl-folder-check-entity-hook
 ;        '(lambda ()
@@ -196,9 +202,10 @@
 (setq wl-summary-line-format "%n%T%P%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %#%~%s")
 ;; \e$B%U%)%k%@Kh$K%5%^%j$NI=<(7A<0$rJQ$($k@_Dj\e(B
 ;(setq wl-folder-summary-line-format-alist
-;      '(("^+" . "%n %T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s")
-;      ("^%inbox\\.emacs\\.wl$" .
-;       "%-5l %T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s")))
+;      '(("^%inbox\\.emacs\\.wl$" .
+;       "%-5l%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s")
+;      ("^%" . "%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s")
+;      ("^+" . "%n%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s")))
 
 ;; imput \e$B$K$h$jHsF14|$GAw?.$9$k\e(B
 ;; (utils/im-wl.el \e$B$r%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9!#\e(B
@@ -284,14 +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")))
+;; 2.11.0 \e$B0JA0$N%G%U%)%k%H@_Dj\e(B
+;(setq wl-draft-reply-without-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))
+;      ("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 ]]