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.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index eb536a0..18c14e1 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,13 @@
 2002-01-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+       * 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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
        * 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 (file)
--- 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 (file)
--- 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."