commit 3e991fe53f92f664f45cbafd183fc710119908f4 parent 297729e95113f1f45c1ebb0f29dc0a3ae3989905 Author: Kévin Le Gouguec <kevin.legouguec@gmail.com> Date: Fri, 30 Jul 2021 00:21:47 +0200 Tweak Gnus subject-washing regexp - add [SPAM UNSURE] - make tailing " :" optional Diffstat:
| M | .gnus | | | 19 | ++++++++++--------- |
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/.gnus b/.gnus @@ -57,16 +57,17 @@ ;; 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. +(defun my/gnus-reply-prefixes () + (mapcan (lambda (prefix) (list prefix (upcase prefix) (capitalize prefix))) + '("re" "aw" "sv" "fw" "fwd"))) + (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)))) + (rx-to-string + `(seq bol + (+ (or ,@(my/gnus-reply-prefixes) + (seq "bug#" (+ digit)) + (seq "[" (or "External" "SPAM UNSURE") "]")) + (? (* space) ":") (* space))))) (add-hook 'gnus-summary-generate-hook (lambda ()