Nuking mailing list subject tags (how-to)

Nuking mailing list subject tags (how-to)

[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

Re: Nuking mailing list subject tags (how-to)

[Jason L Tibbitts III]

>>>>> "SLB" == Steven L Baur <steve@miranova.com> writes:

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

I do that on every list that I run.  It's a great help for those who don't
have such great software as Gnus and Procmail, and if you have such cool
software then getting rid of the tags is trivial.  They're a big help if
you don't have the software and they can go away if you do have it.  Why is
that so annoying?

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

For Procmail users, I use the following in a recipe:

        :0 h
        SUBJECT=| formail -xSubject: | sed 's/TAG: //'

        :0 fhw
        |formail -i "Subject:" -a "Subject:$SUBJECT"

Procmail gurus will probably find subtle weird locking errors, but it's
always worked for me.

 - J<