From 6738892e8f94671092a34efe85487305d602b20b Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 2 Sep 2002 07:01:52 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-parent-folder): Write description. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 13 ++++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index a14b1cd..7d43693 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2002-09-02 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-parent-folder): Write description. + 2002-09-02 Yuuichi Teranishi * wl-draft.el (wl-draft-create-buffer): Set `wl-draft-parent-folder' diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 80e3e25..9f31067 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -73,9 +73,20 @@ (defvar wl-draft-reedit nil) (defvar wl-draft-reply-buffer nil) (defvar wl-draft-forward nil) -(defvar wl-draft-parent-folder nil) (defvar wl-draft-doing-mime-bcc nil) +(defvar wl-draft-parent-folder nil + "Parent folder name of the current draft. +This variable is local in each draft buffer. +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\"))))") + (defvar wl-draft-config-sub-func-alist '((body . wl-draft-config-sub-body) (top . wl-draft-config-sub-top) -- 1.7.10.4