From e7e46e82fa9f41b978007ba2deb93b635d21a3bc Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Thu, 17 Jun 2021 11:37:56 +0200 Subject: Add more patterns to subject "canonicalization" regexp Also move it to a dedicated variable. --- .gnus | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) (limited to '.gnus') diff --git a/.gnus b/.gnus index 8bca6a2..271e2c6 100644 --- a/.gnus +++ b/.gnus @@ -56,16 +56,21 @@ ;; setting its global value causes message mode to elide stuff it ;; shouldn't. Therefore, chase down the best Gnus hook for the job, ;; and set the regexp locally. +(setq my/gnus-summary-normalize-subject + (rx bol (+ (* space) + (or "re" "Re" "RE" + "aw" "Aw" "AW" + "sv" "Sv" "SV" + "fw" "Fw" "FW" + "fwd" "Fwd" "FWD" + (seq "bug#" (+ digit)) + "[External]") + (* space) ":" (* space)))) + (add-hook 'gnus-summary-generate-hook (lambda () (setq-local message-subject-re-regexp - (rx bol (+ (* space) - (or "re" "Re" "RE" - "aw" "Aw" "AW" - "sv" "Sv" "SV" - (seq "bug#" (+ digit)) - "[External]") - (* space) ":" (* space)))))) + my/gnus-summary-normalize-subject))) (gnus-add-configuration '(summary -- cgit v1.2.3