Bug#306068: (no subject)

[Don Armstrong <don@debian.org>]

tag 306068 patch
thanks

The attached patch (rather trivial) fixes this bug. It may need a bit
more fuzz to apply, as my process.in has diverged quite a bit from the
one in cvs... but hopefully it will apply.

[If not, it's trivial to apply manually.]


Don Armstrong

-- 
Of course Pacman didn't influence us as kids. If it did, we'd be
running around in darkened rooms, popping pills and listening to
repetitive music.

http://www.donarmstrong.com              http://rzlab.ucr.edu

Index: scripts/process.in
===================================================================
RCS file: /cvs/debbugs/source/scripts/process.in,v
retrieving revision 1.91
diff -u -r1.91 process.in
--- debbugs/source/scripts/process.in	20 Apr 2005 04:40:18 -0000	1.91
+++ debbugs/source/scripts/process.in	11 Jul 2005 21:25:13 -0000
@@ -18,6 +18,9 @@
 require "$lib_path/errorlib";
 $ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
 
+# for encode_rfc1522
+use Debbugs::MIME qw(encode_rfc1522);
+
 chdir( "$gSpoolDir" ) || die "chdir spool: $!\n";
 
 #open(DEBUG,"> /tmp/debbugs.debug");
@@ -990,7 +1001,13 @@
     if ((!ref($recips) && $recips eq '') || @$recips == 0) {
         $recips = ['-t'];
     }
+    # This is suboptimal. The right solution is to send headers
+    # separately from the rest of the message and encode them rather
+    # than doing this.
     $msg = "X-Loop: $gMaintainerEmail\n" . $msg;
+    my ($header,$body) = split /\n\n/, $msg, 2;
+    $header = encode_rfc1522($header);
+    $msg = $header . qq(\n\n). $body;
 
     my $hash = get_hashname($ref);
     #save email to the log