From: okazaki <okazaki>
Date: Thu, 14 Sep 2000 20:09:53 +0000 (+0000)
Subject: * wl-vars.el (wl-strict-diff-folders): Customization Type
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dcd29829bb1857eeae0d164832d48f3b7f63e70f;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-strict-diff-folders): Customization Type
and doc fix.  Define as a list of regular expressions for
folders or nil.
* wl-folder.el (wl-folder-check-one-entity): Use
`wl-string-match-member' instead of `wl-string-member' for
`wl-strict-diff-folders'.
---

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 95b09ab..2c5d969 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -805,7 +805,7 @@ Optional argument ARG is repeart count."
 (defun wl-folder-check-one-entity (entity)
   (let* ((elmo-use-server-diff (wl-folder-use-server-diff-p entity))
 	 (nums (condition-case err
-		   (if (wl-string-member entity wl-strict-diff-folders)
+		   (if (wl-string-match-member entity wl-strict-diff-folders)
 		       (elmo-strict-folder-diff entity)
 		     (elmo-folder-diff entity))
 		 (error
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 9cd87ce..c74b349 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1275,8 +1275,9 @@ e.x.
   :group 'wl-pref)
 
 (defcustom wl-strict-diff-folders nil
-  "Folders in this list are checked its unsync message number strictly."
-  :type '(repeat (string :tag "Folder"))
+  "List of regexps matching folders of which Wanderlust seriously counts unsync messages."
+  :type '(choice (const :tag "Off" nil)
+		 (repeat (regexp :tag "Folder Regexp")))
   :group 'wl-folder)
 
 (defcustom wl-folder-use-server-diff t