gnus-alter-header-function and mail-header-set-*

["Arne Jørgensen" <arne+usenet@daimi.au.dk>]

Hi,

When Euddora redirects (their version of our 'S D r') mail it changes
the from field to

From: redirecters@address.org (Original Sender <original@sender.org> (by way of Redirecter Foo))

This has annoyed me for a long time (BBDB suggests I change the
address og Original Sender to redirecters@address.org. And then I
don't like that kind of header.

So I looked in the manual and section 3.9.1.4 is almost a solution to
my problem.

Two problems occured though.

The manual is wrong; the arguments of mail-header-set-* should be
header string, not string header.

When I use my code below it seems it only changes the from field when
building the summary buffer and not when displaying the article
buffer.

Any comments? Should I alter the header from somewhere else (a hook)?


;; Wash Eudoras redirected-by-style from header
(defun arj-gnus-alter-eudora-redirected-from-header (header)
  "Alter Eudoras redirected-by-style from header"
  (let ((from (mail-header-from header)))
    (when (string-match
	   "\\(.*\\) (\\(.*\\) (by way of \\(.*\\)))" from)
      (mail-header-set-from header (match-string 2 from))
      )))

(setq gnus-alter-header-function 'arj-gnus-alter-eudora-redirected-from-header)


Regards,

        /arne
-- 
stud. scient. Arne Jørgensen
Kollegium 5, 2., v. 222, Universitetsparken, 8000 Århus C
tlf: 89 42 72 22, mobil: 21 65 01 13
e-post: arne@daimi.au.dk, http://www.daimi.au.dk/~arne/