From: yoichi <yoichi>
Date: Mon, 21 Jan 2002 16:39:35 +0000 (+0000)
Subject: Move definition of wl-draft-cite-function and
X-Git-Tag: wl-2_9_6~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=995d98d372867536b51b00689b62814f0e012564;p=elisp%2Fwanderlust.git

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
--- 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
--- 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."