From: keiichi <keiichi>
Date: Tue, 15 Jun 1999 05:28:10 +0000 (+0000)
Subject: (gnus-simplify-buffer-fuzzy): New implementation for MIME en/decoding.
X-Git-Tag: nana-gnus-6_13_2~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b4f3c1b61df602c14ac2ed417819ccb5cea34d3;p=elisp%2Fgnus.git-

(gnus-simplify-buffer-fuzzy): New implementation for MIME en/decoding.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index f2087c2..0c61626 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1071,20 +1071,13 @@ gnus-simplify-subject-fuzzy-regexp."
       (gnus-simplify-buffer-fuzzy-step
        "^ *\\(re\\|fw\\|fwd\\)[[{(^0-9]*[])}]?[:;] *")
       (gnus-simplify-buffer-fuzzy-step "^[[].*:\\( .*\\)[]]$" "\\1"))
-
     (gnus-simplify-buffer-fuzzy-step " *[[{(][^()\n]*[]})] *$")
-    (gnus-simplify-buffer-fuzzy-step " +" " ")
-    (setq modified-tick nil)
-    (while (not (eq modified-tick (buffer-modified-tick)))
-      (setq modified-tick (buffer-modified-tick))
-      (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
-       "\\([^\000-\177]\\) \\([\000-\177]\\)" "\\1\\2"))
-    (gnus-simplify-buffer-fuzzy-step " $")
-    (gnus-simplify-buffer-fuzzy-step "^ +")))
+    (goto-char (point-min))
+    (while (re-search-forward " +" nil t)
+      (delete-region (match-beginning 0) (match-end 0))
+      (or (bolp) (eobp)
+	  (> (char-after) 127) (> (char-before) 127)
+	  (insert " ")))))
 
 (defun gnus-simplify-subject-fuzzy (subject)
   "Simplify a subject string fuzzily.