From a886e2b7e1eab1aa5f099147c3bf9bcb37ae1dd8 Mon Sep 17 00:00:00 2001
From: hmurata <hmurata>
Date: Sun, 13 Jun 2004 16:07:15 +0000
Subject: [PATCH] * wl-vars.el (wl-summary-mark-action-list): Fix
 customization type.

* wl-spam.el (wl-spam-mark-action-list): Ditto.
---
 wl/ChangeLog  |    6 ++++++
 wl/wl-spam.el |   14 ++++++++------
 wl/wl-vars.el |   15 ++++++++-------
 3 files changed, 22 insertions(+), 13 deletions(-)

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
-- 
1.7.10.4