mail-extract-address-components problems

[Simon Josefsson]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.1.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2001-10-25 on localhost.localdomain
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

$ emacs -q -no-site-file

(setq mail-extr-ignore-single-names nil)
nil

(mail-extract-address-components "4711 <foo@bar.com>")
(nil "foo@bar.com")

(mail-extract-address-components "F4711 <foo@bar.com>")
(nil "foo@bar.com")

(mail-extract-address-components "Fo4711 <foo@bar.com>")
("Fo" "foo@bar.com")

(mail-extract-address-components "Foo4711 <foo@bar.com>")
(nil "foo@bar.com")


I believe this is not only broken, but quite weird as well.  The
correct thing would be to return the name in all cases.

Also, as quite a number of people have email addresses such as:

Foo <foo@bar.com>

I'm not convinced the default for `mail-extr-ignore-single-names' is a
good thing.

Also, there is some code duplication between this function and the
stuff in rfc822.el.  They probably have different sets of bugs as
well.

Recent input:
C-x i f o o <return> C-e C-j <down> C-e C-j <down> 
C-e C-j <down> C-e C-j <down> C-e C-j <down-mouse-1> 
<mouse-movement> <mouse-movement> <mouse-movement> 
<mouse-movement> <mouse-movement> <mouse-movement> 
<mouse-movement> <mouse-movement> <mouse-movement> 
<mouse-movement> <mouse-movement> <drag-mouse-1> M-x 
r e p o r <tab> <return>

Recent messages:
(/usr/local/bin/emacs -q -no-site-file)
Loading disp-table...done
Loading tooltip...done
Loading advice...done
For information about the GNU Project and its goals, type C-h C-p.
Loading image...done
Loading view...done
Mark set
Loading mail-extr...done
Loading emacsbug...done