Tweak Gnus subject-washing regexp

- add [SPAM UNSURE]
- make tailing " :" optional

1 files changed, 10 insertions, 9 deletions

diff --git a/.gnus b/.gnus
index 4af2167..04ff3d7 100644
--- 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 ()