From ca32498e8afa0651b5655a11ee9f8f66dc476287 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 18 Mar 1999 10:10:02 +0000 Subject: [PATCH] (gnus-simplify-subject-fuzzy): Enable group parameters `gnus-simplify-subject-fuzzy-regexp' and `gnus-simplify-ignored-prefixes'. --- lisp/gnus-sum.el | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) 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) -- 1.7.10.4