fix for 41303: new email tech doesn't work with emailregexp

patch by JRobertson@medevolve.com (Jon Robertson)

diff --git a/processmail b/processmail
index 2e45e30aeab9ac991bdb5881ec39188bbe846cba..1dca2ec111635fc0e16806eea81715dda9819f47 100755 (executable)
--- a/processmail
+++ b/processmail
@@ -471,6 +471,11 @@ sub NewProcessOneBug {
     for my $person (@personlist) {
         $count++;
 
+        my $match = "^[^@, ]*@[^@, ]*\.[^@, ]*\$";
+        if ($person !~ /$match/) {
+          $person = $person . Param('emailsuffix');
+        }
+
         &NewProcessOnePerson($person, $count, \@headerlist, \%values,
                              \%defmailhead, \%fielddescription, $difftext, 
                              $newcomments, $start, $id, 1);
@@ -510,7 +515,7 @@ sub NewProcessOnePerson ($$\@\%\%\%$$$$) {
 
       foreach my $watcher ( $watcherSet->toArray() ) {
         
-        &NewProcessOnePerson(DBID_to_name($watcher), 
+        &NewProcessOnePerson(DBID_to_name($watcher) . Param('emailsuffix'), 
                             $count, \@headerlist, \%values,
                             \%defmailhead, \%fielddescription, $difftext, 
                             $newcomments, $start, $id, 0);