From af6ddf096f33fe43574a654a62d24c640721c75e Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 26 Jul 2001 09:20:08 +0000 Subject: [PATCH] * elmo-shimbun.el (elmo-shimbun-index-range-alist): Changed to regexp alist. (elmo-folder-initialize): Use elmo-string-matched-assoc instead of assoc. --- elmo/ChangeLog | 5 +++++ elmo/elmo-shimbun.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) 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 + * 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)) -- 1.7.10.4