(wl-score-simplify-buffer-fuzzy): Fix typo.

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

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