From 01a9c0dce5ba5b72e7daf42602da255681dfba81 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 2 Sep 2002 11:34:16 +0000 Subject: [PATCH] * wl-vars.el (wl-draft-config-alist): Refer wl-draft-parent-folder. * wl-draft.el (wl-draft-parent-folder): Replace tab by spaces. --- wl/ChangeLog | 1 + wl/wl-draft.el | 6 +++--- wl/wl-vars.el | 4 +++- 3 files changed, 7 insertions(+), 4 deletions(-) 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 * 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 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 \") - 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 -- 1.7.10.4