From: yoichi <yoichi>
Date: Mon, 2 Sep 2002 07:01:52 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-parent-folder): Write description.
X-Git-Tag: elmo-mark-root~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6738892e8f94671092a34efe85487305d602b20b;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-parent-folder): Write description.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a14b1cd..7d43693 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-02  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft-parent-folder): Write description.
+
 2002-09-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder'
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 80e3e25..9f31067 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -73,9 +73,20 @@
 (defvar wl-draft-reedit nil)
 (defvar wl-draft-reply-buffer nil)
 (defvar wl-draft-forward nil)
-(defvar wl-draft-parent-folder nil)
 (defvar wl-draft-doing-mime-bcc nil)
 
+(defvar wl-draft-parent-folder nil
+  "Parent folder name of the current draft.
+This variable is local in each draft buffer.
+You can refer its value in `wl-draft-config-alist'.
+
+e.g.
+(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\"))))")
+
 (defvar wl-draft-config-sub-func-alist
   '((body		. wl-draft-config-sub-body)
     (top		. wl-draft-config-sub-top)