Add example for wl-draft-parent-folder usage.

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index c1074b7..a1e4a6d 100644 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -4223,9 +4223,6 @@ Non-nil \e$B$J$i!"@_Dj$5$l$?CM$r%I%i%U%H$N\e(B @samp{Bcc:} \e$B$H$7$F:G=i$+$iA^F~$7
 \e$BCM$K$OJ8;zNs$dJQ?t$NB>!"\e(Belisp\e$B<0$r$=$N$^$^5-=R$9$k$3$H$b$G$-$^$9!#$b$7!"\e(B
 Field \e$B$NCM$,\e(B @code{nil} \e$B$J$i$P$=$N\e(B Field \e$B$r:o=|$7$^$9!#\e(B
 
-\e$B?F%U%)%k%@$NL>A0$rMxMQ$7$?$$>l9g$K$O!"%P%C%U%!%m!<%+%kJQ?t\e(B
-@code{wl-draft-parent-folder} \e$B$rMxMQ$G$-$^$9!#\e(B
-
 \e$B$D$E$$$F!"<!$NNc$r8+$F2<$5$$!#\e(B
 
 @lisp
@@ -4245,6 +4242,21 @@ Field \e$B$NCM$,\e(B @code{nil} \e$B$J$i$P$=$N\e(B Field \e$B$r:o=|$7$^$9!#\e(B
 \e$B%A$9$l$PE,MQ$5$l$k$h$&$K$J$j$^$9!#$?$@$7!"\e(B@code{wl-draft} \e$B$r<B9T$7$?$H$-\e(B
 \e$B$J$IJV?.85$N%P%C%U%!$,$J$$>l9g$OL5;k$5$l$^$9!#\e(B
 
+\e$B?F%U%)%k%@$NL>A0$rMxMQ$7$?$$>l9g$K$O!"%P%C%U%!%m!<%+%kJQ?t\e(B
+@code{wl-draft-parent-folder} \e$B$rMxMQ$G$-$^$9!#<!$NNc$G$O!"%I%i%U%H$r3+$/;~$K\e(B
+\e$B5o$?%5%^%j%P%C%U%!$N%U%)%k%@L>$K$h$C$F\e(B From \e$B$rJQ99$7$^$9!#\e(B
+
+@lisp
+@group
+(setq wl-draft-config-alist
+      '(((string-match \".*@@domain1$\" wl-draft-parent-folder)
+         (\"From\" . \"user@@domain1\"))
+        ((string-match \".*@@domain2$\" wl-draft-parent-folder)
+         (\"From\" . \"user@@domain2\"))))
+@end group
+@end lisp
+
+
 \e$B2?$bFCJL$J@_Dj$r$7$J$1$l$P!"\e(B@code{wl-draft-config-alist} \e$B$O!"\e(B
 @code{wl-draft-send-and-exit} \e$B$+\e(B @code{wl-draft-send} \e$B$,<B9T$5$l$kD>A0$K\e(B
 \e$B0lEY$@$1E,MQ$5$l$^$9!#Aw?.$r<h$j$d$a$?8e$K:FEY\e(B 

diff --git a/doc/wl.texi b/doc/wl.texi
index 96f5651..d4cd3e3 100644 (file)
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -4261,9 +4261,6 @@ In the cdr part of a cons, not only a variable but also an elisp
 expression can be specified as is.  If the car part is a header field
 and the cdr part is @code{nil}, the field will be deleted.
 
-If you want to use name of parent folder, you can refer the buffer local
-variable @code{wl-draft-parent-folder}.
-
 See the next example as well:
 
 @lisp
@@ -4284,6 +4281,22 @@ example, and when it matches the header being replied.  It is ignored
 when there is no buffer being replied, like after @code{wl-draft} was
 invoked.
 
+If you want to use name of parent folder, you can refer the buffer local
+variable @code{wl-draft-parent-folder}. In the following example, Wanderlust
+changes From according to the folder name of the summary in which the draft
+was invoked.
+
+@lisp
+@group
+(setq wl-draft-config-alist
+      '(((string-match \".*@@domain1$\" wl-draft-parent-folder)
+         (\"From\" . \"user@@domain1\"))
+        ((string-match \".*@@domain2$\" wl-draft-parent-folder)
+         (\"From\" . \"user@@domain2\"))))
+@end group
+@end lisp
+
+
 Note that @code{wl-draft-config-alist} is applied only once when
 @code{wl-draft-send-and-exit} or @code{wl-draft-send} is invoked.
 Therefore, if you want to apply @code{wl-draft-config-alist} again after