From c5d3b08e6fa816cd5d7d11e41ed26cb88d8a1d68 Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Sat, 16 Sep 2000 05:39:35 +0000
Subject: fix for 41303: new email tech doesn't work with emailregexp patch by
 JRobertson@medevolve.com (Jon Robertson)

---
 processmail | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.1