From: teranisi <teranisi>
Date: Thu, 26 Jul 2001 09:20:08 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-shimbun-index-range-alist): Changed to regexp alist.
X-Git-Tag: wl-2_7_2~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af6ddf096f33fe43574a654a62d24c640721c75e;p=elisp%2Fwanderlust.git

* elmo-shimbun.el (elmo-shimbun-index-range-alist): Changed to regexp alist.
(elmo-folder-initialize): Use elmo-string-matched-assoc instead of assoc.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 460e137..60925ba 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2001-07-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-shimbun.el (elmo-shimbun-index-range-alist): Changed to regexp
+	alist.
+	(elmo-folder-initialize): Use elmo-string-matched-assoc instead of
+	assoc.
+
 	* elmo-net.el (elmo-network-get-session): Set stream-type argument
 	for `elmo-plugged-p'.
 	(elmo-open-network-stream): Fixed stream-type argument.
diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 78b5136..e5c9a47 100644
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -46,11 +46,11 @@
   :group 'elmo)
 
 (defcustom elmo-shimbun-index-range-alist nil
-  "*Alist of FOLDER and RANGE.
-FOLDER is the shimbun folder name.
+  "*Alist of FOLDER-REGEXP and RANGE.
+FOLDER-REGEXP is the regexp for shimbun folder name.
 RANGE is the range of the header indices .
 See `shimbun-headers' for more detail about RANGE."
-  :type '(repeat (cons (string :tag "Folder Name")
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
 		       (choice (const :tag "all" all)
 			       (const :tag "last" last)
 			       (integer :tag "number"))))
@@ -191,8 +191,8 @@ See `shimbun-headers' for more detail about RANGE."
        (nth 1 server-group)))
     (elmo-shimbun-folder-set-range-internal
      folder
-     (or (cdr (assoc (elmo-folder-name-internal folder)
-		     elmo-shimbun-index-range-alist))
+     (or (cdr (elmo-string-matched-assoc (elmo-folder-name-internal folder)
+					 elmo-shimbun-index-range-alist))
 	 elmo-shimbun-default-index-range))
     folder))