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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4f94d0..b5ae40b 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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