Bug 281733: testfile mail transport cannot write to testfile

Patch By Frédéric Buclin <LpSolit@gmail.com> r=joe a=myk

1 files changed, 4 insertions, 1 deletions

diff --git a/Bugzilla/BugMail.pm b/Bugzilla/BugMail.pm
index fd1ac1a1c..bfe1c897e 100644
--- a/Bugzilla/BugMail.pm
+++ b/Bugzilla/BugMail.pm
@@ -898,7 +898,10 @@ sub MessageToMTA ($) {
         push @args, Server => Param("smtpserver");
     }
     my $mailer = new Mail::Mailer Param("maildeliverymethod"), @args;
-
+    if (Param("maildeliverymethod") eq "testfile") {
+        $Mail::Mailer::testfile::config{outfile} = "$datadir/mailer.testfile";
+    }
+    
     $msg =~ /(.*?)\n\n(.*)/ms;
     my @header_lines = split(/\n/, $1);
     my $body = $2;