diff options
| author | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2021-02-03 18:49:10 +0100 |
|---|---|---|
| committer | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2021-02-03 18:49:10 +0100 |
| commit | 65c8ba6d85c02df70ecfc6b395d0d06b81f6a2cc (patch) | |
| tree | fe217d7981c120b92ea83664355b1143ef76ecc8 | |
| parent | 1ccc8fa8c499b0938cfd4cf4bf522b41ea2a6aa3 (diff) | |
| download | dotfiles-65c8ba6d85c02df70ecfc6b395d0d06b81f6a2cc.tar.xz | |
Make summary buffers less noisy
By recognizing more "reply-cruft".
From a cursory glance at Emacs sources, the capture groups in the
default value are not used, so I see no need to preserve them.
| -rw-r--r-- | .gnus | 13 |
1 files changed, 12 insertions, 1 deletions
@@ -40,7 +40,18 @@ ((gnus-seconds-year) . "%b %d") (t - . "%F"))) + . "%F")) + ;; Add to the list of reply prefixes: + ;; - AW + ;; - no-break spaces + ;; - bug#NNN + ;; - [External] + message-subject-re-regexp (rx bol (+ (* space) + (or "re" "Re" "RE" + "aw" "Aw" "AW" + (seq "bug#" (+ digit)) + (seq "[" (+ word) "]")) + (? (* space) ":" (* space))))) (let* ((initials (mapconcat (lambda (s) (substring s 0 1)) (split-string user-full-name) |