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

[jidanni@jidanni.org]

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.