* wl-vars.el (wl-draft-config-alist): Refer wl-draft-parent-folder.

* wl-draft.el (wl-draft-parent-folder): Replace tab by spaces.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7d43693..d84c5a4 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,7 @@
 2002-09-02  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-draft.el (wl-draft-parent-folder): Write description.
+       * wl-vars.el (wl-draft-config-alist): Refer `wl-draft-parent-folder'
 
 2002-09-02  Yuuichi Teranishi  <teranisi@gohome.org>
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 4f000cb..41fb95e 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -83,9 +83,9 @@ 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\"))))")
+         (\"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)

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index f08e35f..bc1825d 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1140,7 +1140,9 @@ ex.
   (reply
    \"^To: .*hogehoge@aaa.ne.jp\"
    (\"From\" . \"Alternative Address <hogehoge@aaa.ne.jp>\")
-   my-draft-config-function-hogehoge))"
+   my-draft-config-function-hogehoge))
+
+See also variable `wl-draft-parent-folder'."
   :type '(repeat (list (sexp :tag "Match")
                       (repeat
                        :inline t