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