From: keiichi <keiichi>
Date: Wed, 24 Mar 1999 03:13:53 +0000 (+0000)
Subject: (gnus-simplify-buffer-fuzzy): Add regexp for MIME en/decoding.
X-Git-Tag: nana-gnus-6_12_10~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d141cb65f63e50267df8afb7dfcc5a5c5a64659;p=elisp%2Fgnus.git-

(gnus-simplify-buffer-fuzzy): Add regexp for MIME en/decoding.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 2793e32..17568b7 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1069,11 +1069,15 @@ gnus-simplify-subject-fuzzy-regexp."
 	(gnus-simplify-buffer-fuzzy-step gnus-simplify-subject-fuzzy-regexp)))
       (gnus-simplify-buffer-fuzzy-step "^ *\\[[-+?*!][-+?*!]\\] *")
       (gnus-simplify-buffer-fuzzy-step
-       "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *")
+       "^ *\\(\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *\\)+")
       (gnus-simplify-buffer-fuzzy-step "^[[].*:\\( .*\\)[]]$" "\\1"))
 
     (gnus-simplify-buffer-fuzzy-step " *[[{(][^()\n]*[]})] *$")
-    (gnus-simplify-buffer-fuzzy-step "  +" " ")
+    (gnus-simplify-buffer-fuzzy-step " +" " ")
+    (gnus-simplify-buffer-fuzzy-step
+     "\\([\000-\177]\\) ?\\([^\000-\177]\\)" "\\1 \\2")
+    (gnus-simplify-buffer-fuzzy-step
+     "\\([^\000-\177]\\) ?\\([\000-\177]\\)" "\\1 \\2")
     (gnus-simplify-buffer-fuzzy-step " $")
     (gnus-simplify-buffer-fuzzy-step "^ +")))