diff options
Diffstat (limited to 'processmail')
| -rwxr-xr-x | processmail | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/processmail b/processmail index 2e45e30ae..1dca2ec11 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); |