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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 28a42de..fe98f9d 100644 (file)
--- 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-20  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        * wl-demo.el (wl-demo-image-type-alist): Use ' instead of `.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5cbc561..26fa55e 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2896,7 +2896,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 "^\\[.*\\]" "")))