From: yoichi <yoichi>
Date: Mon, 2 Sep 2002 11:34:16 +0000 (+0000)
Subject: * wl-vars.el (wl-draft-config-alist): Refer wl-draft-parent-folder.
X-Git-Tag: elmo-mark-root~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=01a9c0dce5ba5b72e7daf42602da255681dfba81;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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