Author: adam-guest
Date: 2008-06-15 20:15:36 +0000 (Sun, 15 Jun 2008)
New Revision: 1503
Modified:
trunk/debian/changelog
trunk/scripts/bts.pl
Log:
bts: MIME-encode the Subject: header of the generated mail in case it
contains any non-ASCII characters (Closes: #486395)
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2008-06-15 17:37:04 UTC (rev 1502)
+++ trunk/debian/changelog 2008-06-15 20:15:36 UTC (rev 1503)
@@ -1,5 +1,7 @@
devscripts (2.10.30) UNRELEASED; urgency=low
+ * bts: MIME-encode the Subject: header of the generated mail in case it
+ contains any non-ASCII characters (Closes: #486395)
* checkbashisms:
+ Apply a couple of small fixes to the "quoted block detection" and the
removal of quoted strings
Modified: trunk/scripts/bts.pl
===================================================================
--- trunk/scripts/bts.pl 2008-06-15 17:37:04 UTC (rev 1502)
+++ trunk/scripts/bts.pl 2008-06-15 20:15:36 UTC (rev 1503)
@@ -2038,6 +2038,11 @@
my $subject=shift;
my $body=shift;
+ my $charset = `locale charmap`;
+ chomp $charset;
+ $charset =~ s/^ANSI_X3\.4-19(68|86)$/US-ASCII/;
+ $subject = MIME_encode_mimewords($subject, 'Charset' => $charset);
+
# If there were comments, we CC each of the bugs
if (keys %ccbugs && length(join('', @comment))) {
$ccemail .= ", " if length $ccemail;
@@ -2080,9 +2085,6 @@
$name =~ s/,.*//;
}
my $from = $name ? "$name <$email>" : $email;
- my $charset = `locale charmap`;
- chomp $charset;
- $charset =~ s/^ANSI_X3\.4-19(68|86)$/US-ASCII/;
$from = MIME_encode_mimewords($from, 'Charset' => $charset);
send_mail($from, $btsemail, $ccemail, $subject, $body);
--
To unsubscribe, send mail to [EMAIL PROTECTED]
