From 995d98d372867536b51b00689b62814f0e012564 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 21 Jan 2002 16:39:35 +0000 Subject: [PATCH] Move definition of wl-draft-cite-function and wl-default-draft-cite-decorate-author from wl-draft.el to wl-vars.el. Make them customizable. --- wl/ChangeLog | 8 ++++++++ wl/wl-draft.el | 2 -- wl/wl-vars.el | 11 +++++++++++ 3 files changed, 19 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index eb536a0..18c14e1 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,13 @@ 2002-01-21 Yoichi NAKAYAMA + * wl-vars.el (wl-draft-cite-function): Moved from `wl-draft.el'. + (wl-default-draft-cite-decorate-author): Ditto. + + * wl-draft.el (wl-draft-cite-function): Removed. + (wl-default-draft-cite-decorate-author): Ditto. + +2002-01-21 Yoichi NAKAYAMA + * wl-draft.el (wl-default-draft-cite-decorate-author): New variable. (wl-default-draft-cite): Do not arrange author name if the value of `wl-default-draft-cite-decorate-author' is nil. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 44912f5..8fcd881 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -53,8 +53,6 @@ (autoload 'wl-addrmgr "wl-addrmgr")) (defvar wl-draft-buf-name "Draft") -(defvar wl-draft-cite-function 'wl-default-draft-cite) -(defvar wl-default-draft-cite-decorate-author t) (defvar wl-draft-buffer-file-name nil) (defvar wl-draft-field-completion-list nil) (defvar wl-draft-verbose-send t) diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 34a99bf..9382d3a 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -277,6 +277,17 @@ references field of the current draft." :type 'boolean :group 'wl) +(defcustom wl-draft-cite-function 'wl-default-draft-cite + "*A function for citation." + :type 'function + :group 'wl-draft) + +(defcustom wl-default-draft-cite-decorate-author t + "*If non-nil, the author of cited message is arranged by +`wl-summary-from-func-internal' in `wl-default-draft-cite'." + :type 'boolean + :group 'wl-draft) + (defcustom wl-smtp-connection-type nil "*SMTP connection type. If nil, default smtp connection type is used." -- 1.7.10.4