From: hmurata <hmurata>
Date: Sun, 22 Jan 2006 13:33:04 +0000 (+0000)
Subject: * elmo-vars.el (elmo-mailing-list-name-spec-list): Fixed
X-Git-Tag: wl-2_15_3~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6ccf3dfde882ca96905510f105a0294792fa1214;p=elisp%2Fwanderlust.git

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