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