From: keiichi <keiichi>
Date: Thu, 18 Mar 1999 10:10:02 +0000 (+0000)
Subject: (gnus-simplify-subject-fuzzy): Enable group parameters
X-Git-Tag: nana-gnus-6_12_9~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ca32498e8afa0651b5655a11ee9f8f66dc476287;p=elisp%2Fgnus.git-

(gnus-simplify-subject-fuzzy): Enable group parameters
`gnus-simplify-subject-fuzzy-regexp' and `gnus-simplify-ignored-prefixes'.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e75b4dd..2793e32 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1080,15 +1080,18 @@ gnus-simplify-subject-fuzzy-regexp."
 (defun gnus-simplify-subject-fuzzy (subject)
   "Simplify a subject string fuzzily.
 See `gnus-simplify-buffer-fuzzy' for details."
-  (save-excursion
-    (gnus-set-work-buffer)
-    (let ((case-fold-search t))
-      ;; Remove uninteresting prefixes.
-      (when (and gnus-simplify-ignored-prefixes
-		 (string-match gnus-simplify-ignored-prefixes subject))
-	(setq subject (substring subject (match-end 0))))
+  (let ((case-fold-search t)
+	;; Save group parameter.
+	(fuzzy-regexp gnus-simplify-subject-fuzzy-regexp))
+    ;; Remove uninteresting prefixes.
+    (when (and gnus-simplify-ignored-prefixes
+	       (string-match gnus-simplify-ignored-prefixes subject))
+      (setq subject (substring subject (match-end 0))))
+    (save-excursion
+      (gnus-set-work-buffer)
       (insert subject)
-      (inline (gnus-simplify-buffer-fuzzy))
+      (let ((gnus-simplify-subject-fuzzy-regexp fuzzy-regexp))
+	(inline (gnus-simplify-buffer-fuzzy)))
       (buffer-string))))
 
 (defsubst gnus-simplify-subject-fully (subject)