(wl-score-simplify-buffer-fuzzy): Don't use `regexp-or'.

(wl-score-simplify-subject): Ditto.

diff --git a/wl/wl-score.el b/wl/wl-score.el
index bca0dd2..d7dfd70 100644 (file)
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -120,7 +120,8 @@ matter is removed.  Additional things can be deleted by setting
 wl-score-simplify-fuzzy-regexp."
   (let ((regexp
         (if (listp wl-score-simplify-fuzzy-regexp)
-            (apply (function regexp-or) wl-score-simplify-fuzzy-regexp)
+            (mapconcat (function identity) wl-score-simplify-fuzzy-regexp
+                       "\\|")
           wl-score-simplify-fuzzy-regexp))
        (case-fold-search t)
        modified-tick)
@@ -150,7 +151,8 @@ See `wl-score-simplify-buffer-fuzzy' for details."
   (elmo-set-work-buf
    (let ((regexp
          (if (listp wl-score-simplify-fuzzy-regexp)
-             (apply (function regexp-or) wl-score-simplify-fuzzy-regexp)
+             (mapconcat (function identity) wl-score-simplify-fuzzy-regexp
+                        "\\|")
            wl-score-simplify-fuzzy-regexp))
         (case-fold-search t))
      (insert subject)