From: hmurata <hmurata>
Date: Sun, 13 Jun 2004 16:07:15 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-mark-action-list): Fix customization type.
X-Git-Tag: wl-2_11_30~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a886e2b7e1eab1aa5f099147c3bf9bcb37ae1dd8;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-summary-mark-action-list): Fix customization type.

* wl-spam.el (wl-spam-mark-action-list): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ce8bd82..2c3a480 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-vars.el (wl-summary-mark-action-list): Fix customization type.
+
+	* wl-spam.el (wl-spam-mark-action-list): Ditto.
+
 2004-06-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-vars.el (wl-summary-mark-action-list): Fix customization type.
diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index ad1febc..1986171 100644
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -94,12 +94,14 @@
 Append this value to `wl-summary-mark-action-list' by `wl-spam-setup'.
 
 See `wl-summary-mark-action-list' for the detail of element."
-  :type '(repeat (string :tag "Temporary mark")
-		 (symbol :tag "Set mark function")
-		 (symbol :tag "Unset mark function")
-		 (symbol :tag "Exec function")
-		 (symbol :tag "Face symbol")
-		 (string :tag "Document string"))
+  :type '(repeat (list
+		  (string :tag "Temporary mark")
+		  (symbol :tag "Action name")
+		  (symbol :tag "Argument function")
+		  (symbol :tag "Set mark function")
+		  (symbol :tag "Exec function")
+		  (symbol :tag "Face symbol")
+		  (string :tag "Document string")))
   :group 'wl-spam)
 
 (defun wl-spam-domain (folder-name)
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 9e907e5..98180f5 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -415,13 +415,14 @@ EXEC-FUNCTION is a function called to execute the action.
 Its argument is a list of MARK-INFO.
 MARK-INFO is a list of (NUMBER MARK DATA).
 FACE is a face for highlighting."
-  :type '(repeat (string :tag "Temporary mark")
-		 (symbol :tag "Action name")
-		 (symbol :tag "Set mark function")
-		 (symbol :tag "Unset mark function")
-		 (symbol :tag "Exec function")
-		 (symbol :tag "Face symbol")
-		 (string :tag "Document string"))
+  :type '(repeat (list
+		  (string :tag "Temporary mark")
+		  (symbol :tag "Action name")
+		  (symbol :tag "Argument function")
+		  (symbol :tag "Set mark function")
+		  (symbol :tag "Exec function")
+		  (symbol :tag "Face symbol")
+		  (string :tag "Document string")))
   :group 'wl-summary)
 
 ;; Important folders