Re: How to strip names out of To: and CC:

[Daniel Pittman <daniel@rimspace.net>]

jidanni@jidanni.org writes:

> Well here's how far I got:
> (defun jidanni-message-to-cc-no-names ()
>   "Strip the names out of To: and Cc:,
>  leaving just the addresses, for a more spartan style."
>   (let
>   (mapcar
>    (lambda(X)
>       ((X-content
> 	(mapcar
> 	 (lambda(x)(cadr x))
> 	 (mail-extract-address-components x t))))
>       (message-fetch-field "X"))
>    (message-goto-X)(message-delete-line);OR (message-remove-header X)?
>    (insert (concat "X: " X-content "\n")) (list to cc))))
>
> (add-hook 'message-header-setup-hook
> 	  'jidanni-message-to-cc-no-names)
>
> Of course it is just a jumble of Lisp Concepts in no special order
> that took several hours for me to amass.
>
> Or maybe I would be smarter to just hack the definition of
> mail-extract-address-components and gnus-extract-address-components to
> cause them to lose the names, but that would be like painting the
> traffic light green.

You might do better setting the value of the variable
`gnus-extract-address-components' to something that called an existing
method, expunged the name part, then returned the result.

Like others I /really/ don't think this is a good idea, but that
involves no hacking and minimal writing of code for your purposes.

Regards,
        Daniel
-- 
Daniel Pittman <daniel@cybersource.com.au>           Phone: 03 9621 2377
Level 4, 10 Queen St, Melbourne             Web: http://www.cyber.com.au
Cybersource: Australia's Leading Linux and Open Source Solutions Company