Re: ietf-drums-parse-address, gnus-extract-address-components, mail-extract-address-components

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <v93b98oi3m.fsf@marauder.physik.uni-ulm.de>

> Here's a suggestion for such a fix.  Does anyone see a problem with
> it?

It doesn't strip brackets and whitespace:

(gnus-extract-address-components "\"foo@bar\" <bar@baz>")
 => (nil " <bar@baz>")

In addition, "foo@bar" might be a valid (nick)name of the sender.
How about the following?

--8<---------------cut here---------------start------------->8---
--- gnus-util.el~	2006-10-03 06:40:00 +0000
+++ gnus-util.el	2006-10-30 03:20:42 +0000
@@ -173,8 +173,12 @@
     ;; First find the address - the thing with the @ in it.  This may
     ;; not be accurate in mail addresses, but does the trick most of
     ;; the time in news messages.
-    (when (string-match "\\b[^@ \t<>]+[!@][^@ \t<>]+\\b" from)
-      (setq address (substring from (match-beginning 0) (match-end 0))))
+    (cond (;; Special case: "foo@bar" <foo@bar>, i.e. one @ in the comment
+	   ;; and one in the address.
+	   (string-match "<\\([^@ \t<>]+[!@][^@ \t<>]+\\)>" from)
+	   (setq address (substring from (match-beginning 1) (match-end 1))))
+	  ((string-match "\\b[^@ \t<>]+[!@][^@ \t<>]+\\b" from)
+	   (setq address (substring from (match-beginning 0) (match-end 0)))))
     ;; Then we check whether the "name <address>" format is used.
     (and address
 	 ;; Linear white space is not required.
--8<---------------cut here---------------end--------------->8---