* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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