From dff7f2f4f3de90a251ba49e9dc5171e40453af43 Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Thu, 14 Sep 2000 00:45:48 +0000
Subject: fix for 51520: Missing uses of Param('emailsuffix') patch submitted
 by john.beranek@pace.co.uk (John Beranek)

---
 processmail | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'processmail')

diff --git a/processmail b/processmail
index d96a6f96e..c919b7acc 100755
--- a/processmail
+++ b/processmail
@@ -402,7 +402,7 @@ sub NewProcessOneBug {
         my ($who, $what, $when, $old, $new) = (@$ref);
         if ($who ne $lastwho) {
             $lastwho = $who;
-            $difftext .= "\n$who changed:\n\n";
+            $difftext .= "\n$who" . Param('emailsuffix') . " changed:\n\n";
             $difftext .= FormatTriple("What    ", "Old Value", "New Value");
             $difftext .= ('-' x 76) . "\n";
         }
@@ -570,6 +570,8 @@ sub NewProcessOnePerson ($$\@\%\%\%$$$$) {
     my $isnew = ($start !~ m/[1-9]/);
     
     my %substs;
+
+    $person .= Param('emailsuffix');
     $substs{"neworchanged"} = $isnew ? "New" : "Changed";
     $substs{"to"} = $person;
     $substs{"cc"} = '';
-- 
cgit v1.2.3-24-g4f1b