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

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

[Arne Jørgensen]

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/

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

[Lars Magne Ingebrigtsen]

Arne Jørgensen <arne+usenet@daimi.au.dk> writes:

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

Uhm, er...  I don't quite follow.

> 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.

[...]

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

Yes, this function only does header alteration for the summary
buffer.  These headers are not consulted when generating the article
buffer.  To do that, you have to use the article treatment hooks. 

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

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

[Arne Jørgensen]

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/