From: yoichi <yoichi>
Date: Thu, 17 Jun 2004 16:57:12 +0000 (+0000)
Subject: * wl-vars.el (wl-draft-reply-with-argument-list): Fix
X-Git-Tag: wl-2_11_30~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=209424ee491447ad73e75159e0ce442c23c1e9a5;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-draft-reply-with-argument-list): Fix
customization type and docstring.
(wl-draft-reply-without-argument-list): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2c3a480..bcade33 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-18  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-vars.el (wl-draft-reply-with-argument-list): Fix
+	customization type and docstring.
+	(wl-draft-reply-without-argument-list): Ditto.
+
 2004-06-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-vars.el (wl-summary-mark-action-list): Fix customization type.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 98180f5..f299a9d 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -860,14 +860,19 @@ Prepared candidates are 'wl-draft-send-mail-with-smtp,
 	       ("Mail-Followup-To" "To" "Cc")
 	       ("Followup-To" "Newsgroups"))))
   "Alist of cons cell of
-\('field-name' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
-'field-name' is a string.
+\('condition' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
+'condition' is a header name string (non-nil if the header exists in original
+message), a function (evaluated in original message buffer) or a list of those
+\(means 'AND' condition).
 'fields for ***' is a list of strings.
-If car of each cons cell exists in original message,
-cdr of each cons cell is used for draft message.
+If car of each cons cell returns non-nil value,
+cdr of each cons cell is used for preparing headers of draft message.
 Default is for 'reply-to-all'."
   :type '(repeat (cons (choice (string :tag "Field Name")
-			       (repeat (string :tag "Field Name")))
+			       (symbol :tag "Function")
+			       (repeat :tag "AND"
+				       (choice (string :tag "Field Name")
+					       (symbol :tag "Function"))))
 		       (list (repeat :tag "Fields For To" string)
 			     (repeat :tag "Fields For Cc" string)
 			     (repeat :tag "Fields For Newsgroups" string))))
@@ -883,12 +888,17 @@ Default is for 'reply-to-all'."
     ("From" . (("From") ("To" "Cc") nil)))
   "Alist of cons cell of
 \('field-name' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
-'field-name' is a string.
+'condition' is a header name string (non-nil if the header exists in original
+message), a function (evaluated in original message buffer) or a list of those
+\(means 'AND' condition).
 'fields for ***' is a list of strings.
-If car of each cons cell exists in original message,
-cdr of each cons cell is used for draft message."
+If car of each cons cell returns non-nil value,
+cdr of each cons cell is used for preparing headers of draft message."
   :type '(repeat (cons (choice (string :tag "Field Name")
-			       (repeat (string :tag "Field Name")))
+			       (symbol :tag "Function")
+			       (repeat :tag "AND"
+				       (choice (string :tag "Field Name")
+					       (symbol :tag "Function"))))
 		       (list (repeat :tag "Fields For To" string)
 			     (repeat :tag "Fields For Cc" string)
 			     (repeat :tag "Fields For Newsgroups" string))))