From: okada <okada>
Date: Mon, 26 Feb 2001 01:25:44 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-default-subject-filter): Fix for `Re>'.
X-Git-Tag: wl-2_6-root~75
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bed7473899147de56d23977a810d0f6a165cb6f5;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-default-subject-filter): Fix for `Re>'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c91ded7..409e992 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2000-02-26  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-summary.el (wl-summary-default-subject-filter): Fix for `Re>'.
+
 2001-02-25  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
 
 	* wl-folder.el (wl-folder-sync-entity): Fixed change value of
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9b71bb3..3af1481 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2924,7 +2924,7 @@ If ARG, without confirm."
 
 (defun wl-summary-default-subject-filter (subject)
   (let ((case-fold-search t))
-    (setq subject (elmo-replace-in-string subject "[ \t]*\\(re\\|was\\):" ""))
+    (setq subject (elmo-replace-in-string subject "[ \t]*\\(re\\|was\\)[:>]" ""))
     (setq subject (elmo-replace-in-string subject "[ \t]" ""))
     (elmo-replace-in-string subject "^\\[.*\\]" "")))