From: ueno <ueno>
Date: Thu, 5 Oct 2000 17:37:52 +0000 (+0000)
Subject: (wl-score-simplify-buffer-fuzzy): Don't use `regexp-or'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=886cc31145ce6cd664bbfc6ca628c60cd10ed46d;p=elisp%2Fwanderlust.git

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