I slightly modified &extract_email_address from mhutil.pl (v.2.5.2) with a
more rigorous regular expression check, to handle slightly misformed From
headers:
This corrected a problem I had with a malformed From header of the form:
From: Joe Schmoe" <[EMAIL PROTECTED]
Ugh. Gotta love those MUAs. :-)
The diff is:
66c66,69
< if ($str =~ /<(\S+)>/) {
---
> if ($str =~ /([\w\-\.]+\@[\w\-\.]+)/) {
> $ret = $1;
> }
> elsif ($str =~ /<(\S+)>/) {
Basically, as a first check, it tries to extract a string of the form:
[alphanumeric, '_', '-', '.']+\@[alphanumeric, '_', '-', '.']+
If it doesn't find anything like that, it goes through the other checks.
-Eugene
--
+=== Eugene Eric Kim ===== [EMAIL PROTECTED] ===== http://www.eekim.com/ ===+
| "Writer's block is a fancy term made up by whiners so they |
+===== can have an excuse to drink alcohol." --Steve Martin ===========+
