From: yoichi <yoichi>
Date: Sun, 14 Jul 2002 09:51:59 +0000 (+0000)
Subject: Rewrite explanations for wl-draft-config-exec and wl-draft-config-alist.
X-Git-Tag: elmo-mark-root~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f71b556c1503d6e40b651966e56937dc08c0375e;p=elisp%2Fwanderlust.git

Rewrite explanations for wl-draft-config-exec and wl-draft-config-alist.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4f94d0..b5ae40b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-14  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft-config-exec): Fixed docstring.
+	* wl-vars.el (wl-draft-config-alist): Ditto.
+
 2002-07-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* Version number is increased to 2.9.14.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 3a7b312..a0607e1 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -2013,7 +2013,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	  (wl-draft-config-exec config-alist reply-buf)))))
 
 (defun wl-draft-config-exec (&optional config-alist reply-buf)
-  "Change headers in draft sending time."
+  "Change headers according to the value of `wl-draft-config-alist'.
+Automatically applied in draft sending time."
   (interactive)
   (let ((case-fold-search t)
 	(alist (or config-alist wl-draft-config-alist))
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 8655655..b9f473b 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1115,14 +1115,24 @@ If nil, a string `This is a blind carbon copy.' is used."
   :group 'wl-draft)
 
 (defcustom wl-draft-config-alist nil
-  "Alist of configuration field on draft.
+  "Alist of condition and actions for dynamical draft modification.
+First element of each list is some condition for the draft buffer (regular
+expression for header or elisp expression) and remaining elements indicate
+actions.
+If the first element is `reply' keyword, the next element be the condition
+for the message being replied, and remaining elements are actions.
+
+The configuration is applied when `wl-draft-config-exec' is called, or
+applied automatically before sending message.
+
 ex.
 '((\"^To: .*wl@lists.airs.net\"
-   (\"From\" . wl-from2)
-   (\"Organization\" . wl-organization2))
-  (\"^To: .*hogehoge@\"
-   (\"From\" . \"Anonymous <hogehoge@aaa.ne.jp>\")
-   wl-my-draft-config-func-hoge))"
+   (\"From\" . my-from-address-for-wl-list)
+   (\"Organization\" . my-organization-for-wl-list))
+  (reply
+   \"^To: .*hogehoge@aaa.ne.jp\"
+   (\"From\" . \"Alternative Address <hogehoge@aaa.ne.jp>\")
+   my-draft-config-function-hogehoge))"
   :type '(repeat (list (sexp :tag "Match")
 		       (repeat
 			:inline t