Mailing List Archive

Author: jm
Date: Wed Feb 18 15:07:49 2004
New Revision: 6729

Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin.pm
Log:
bug 3044: IT_PATTERN for find_all_addrs_in_line() is too restrictive

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin.pm Wed Feb 18 15:07:49 2004
@@ -1612,7 +1612,8 @@
sub find_all_addrs_in_line {
my ($self, $line) = @_;

- my $ID_PATTERN = '[-a-z0-9_\+\:\/\.]+';
+ # a more permissive pattern based on "dot-atom" as per RFC2822
+ my $ID_PATTERN = '[-a-z0-9_\+\:\=\!\#\$\%\&\*\^\?\{\}\|\~\/\.]+';
my $HOST_PATTERN = '[-a-z0-9_\+\:\/]+';

my @addrs = ();