Nuking mailing list subject tags (how-to)

[steve@miranova.com (Steven L. Baur)]

While we're discussing Gnus & Mail I'd like to add a little Gnus Magic.

Ever been on a mailing list where the list owner thinks its a Great
Idea to put the mailing list name in the Subject: line?

Here's a demonstration function that attaches to
nnml-prepare-save-mail-hook to illustrate how to nuke those annoying,
obnoxious and ugly tags out of existence.  Permanently.

Customize to suit.  If the crossposting feature is being used, then
all the crossposted nnml groups must be extracted out of group-art.
This function only uses the first one.

(defun steves-nnml-prepare-save-mail-hook ()
  "Wipe out damned annoying, obnoxious, and ugly mailing list subject tags.
The Final Solution!"
  (let ((group (car (car group-art))))
    (if (not (string-match "hwg-main\\|faqbook" group ))
        nil
      (let ((dest "")
            (src (cond ((string= group "hwg-main") "\\[ *hwg-main *\\] *")
                       ((string= group "faqbook") "\\[faqbook\\] *")
                       (t "I'm A Stupid Blathering MSDOS MORON!!!"))))
        (save-excursion
          (save-restriction
            (if (re-search-forward "^Subject: " nil t)
                (progn
                  (narrow-to-region (gnus-point-at-bol) (gnus-point-at-eol))
                  (if (re-search-forward src nil t)
                      (replace-match dest))))))))))

(add-hook 'nnml-prepare-save-mail-hook 'steves-nnml-prepare-save-mail-hook)

-- 
steve@miranova.com baur