* elmo-vars.el (elmo-mailing-list-name-spec-list): Fixed

customization type.
(elmo-mailing-list-count-spec-list): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ba61446..51e161c 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2006-01-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * elmo-vars.el (elmo-mailing-list-name-spec-list): Fixed
+       customization type.
+       (elmo-mailing-list-count-spec-list): Ditto.
+
        * elmo-vars.el (elmo-mailing-list-name-spec-list): Merge entries
        for `list-id'.
 

diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index b580c94..160fea5 100644 (file)
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -455,9 +455,11 @@ Arguments for this function are NAME, BUFFER, HOST and SERVICE.")
   :type '(repeat
          (choice (symbol :tag "Field Name")
                  (list (symbol :tag "Field Name")
-                       (choice regexp
-                               (cons regexp
-                                     (integer :tag "Match Index"))))))
+                       (repeat
+                        :inline symbol
+                        (choice regexp
+                                (cons regexp
+                                      (integer :tag "Match Index")))))))
   :group 'elmo)
 
 (defcustom elmo-mailing-list-count-spec-list
@@ -470,9 +472,11 @@ Arguments for this function are NAME, BUFFER, HOST and SERVICE.")
   :type '(repeat
          (choice (symbol :tag "Field Name")
                  (list (symbol :tag "Field Name")
-                       (choice regexp
-                               (cons regexp
-                                     (integer :tag "Match Index"))))))
+                       (repeat
+                        :inline symbol
+                        (choice regexp
+                                (cons regexp
+                                      (integer :tag "Match Index")))))))
   :group 'elmo)
 
 (require 'product)