Wrappers for gnus-extract-address-components (was: [...] gnus-util.el)

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Wed, May 07 2008, Ted Zlatanov on ding-patches:

> * gnus-util.el (gnus-extract-address-component-name)
> (gnus-extract-address-component-email): Convenience functions around
> `gnus-extract-address-components'.

I doubt that we need these wrappers.  Just using `car' and `cadr' is
sufficiently convenient for me.

> +(defun gnus-extract-address-component-name (from)
> +  "Extract name from a From header.
> +Uses `gnus-extract-address-components'."
> +  (nth 0 (gnus-extract-address-components from)))
> +
> +(defun gnus-extract-address-component-email (from)
> +  "Extract e-mail address from a From header.
> +Uses `gnus-extract-address-components'."
> +  (nth 1 (gnus-extract-address-components from)))

When introducing such wrapper, we might use (funcall
gnus-extract-address-components ...) instead.

And the names should be something more simple like `...-extract-name'
and `...-extract-address'.  As they should be usable in `message.el'
as well, we should put them in `gmm-utils.el' to avoid code like this:

     (funcall (if (boundp gnus-extract-address-components)
		  gnus-extract-address-components
		'mail-extract-address-components)
	      from)

Or, `gnus-extract-address-components' could use an optional argument,
which can have the values 'name or 'address.

Opinions?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/