From: cyeh%bluemartini.com <>
Date: Sat, 16 Sep 2000 05:39:35 +0000 (+0000)
Subject: fix for 41303: new email tech doesn't work with emailregexp
X-Git-Tag: bugzilla-2.12~157
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c5d3b08e6fa816cd5d7d11e41ed26cb88d8a1d68;p=thirdparty%2Fbugzilla.git

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 2e45e30aea..1dca2ec111 100755
--- 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);