Bug 281733: testfile mail transport cannot write to testfile

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

diff --git a/Bugzilla/BugMail.pm b/Bugzilla/BugMail.pm
index fd1ac1a1c1b5ddaf67fa27592aa555f58d34f478..bfe1c897ed3a074b3a4894db0a47b53d14ab08f7 100644 (file)
--- 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;