From 138ea97daa2d1dd20d1c29f492f93617a606277e Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Mon, 2 Sep 2002 11:27:32 +0000
Subject: [PATCH] Add example for wl-draft-parent-folder usage.

---
 doc/wl-ja.texi |   18 +++++++++++++++---
 doc/wl.texi    |   19 ++++++++++++++++---
 2 files changed, 31 insertions(+), 6 deletions(-)

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