[PATCH] testbot: Use the configured mailing list name instead of hardcoding it.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---

$PatchesMailingList is already set to "wine-devel" in the configuration 
file.

testbot/lib/WineTestBot/Patches.pm | 2 +-
 testbot/web/JobDetails.pl          | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/testbot/lib/WineTestBot/Patches.pm b/testbot/lib/WineTestBot/Patches.pm
index 8a22d3a5ad..d021f9cb43 100644
--- a/testbot/lib/WineTestBot/Patches.pm
+++ b/testbot/lib/WineTestBot/Patches.pm
@@ -158,7 +158,7 @@ sub Submit($$$)
   $Subject =~ s/[PATCH[^]]*]//i;
   $Subject =~ s/[[(]?\d+/\d+[)]]?//;
   $Subject =~ s/^\s*//;
-  $NewJob->Remarks(substr("[wine-patches] " . $Subject, 0,
+  $NewJob->Remarks(substr("[$PatchesMailingList] " . $Subject, 0,
                           $PropertyDescriptor->GetMaxLength()));
   $NewJob->Patch($self);

diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index 76de1bb23c..2909eb7dbc 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -64,7 +64,7 @@ sub GetPageTitle($)
   my ($self) = @_;

my $PageTitle = $self->{Job}->Remarks;
-  $PageTitle =~ s/^[[]wine-patches[]] //;
+  $PageTitle =~ s/^[[]\Q$PatchesMailingList\E[]] //;
   $PageTitle = "Job " . $self->{JobId} if ($PageTitle eq "");
   $PageTitle .= " - ${ProjectName} Test Bot";
   return $PageTitle;