From: ueno <ueno>
Date: Thu, 5 Oct 2000 15:38:48 +0000 (+0000)
Subject: (wl-score-simplify-buffer-fuzzy): Fix typo.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7180eac090ff09b784ca8555f95b525ad9778242;p=elisp%2Fwanderlust.git

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