* Output proper charset for attachments (closes: #335813)
my $head = $entity->head;
chomp(my $type = $entity->effective_type);
my $body = $entity->stringify_body;
- print "Content-Type: $type\n";
+ print "Content-Type: $type";
+ my ($charset) = $head->get('Content-Type:') =~ m/charset\s*=\s*\"?([\w-]+)\"?/i;
+ print qq(; charset="$charset") if defined $charset;
+ print "\n";
if ($filename ne '') {
my $qf = $filename;
$qf =~ s/"/\\"/g;
- Allow forwarded: to be set at submit@ time. (closes: #128320)
- Fix example rewrite rules to allow for #1234 and foo+bar@baz.com
(closes: #321925)
+ - Output proper charset for attachments (closes: #335813)
-- Colin Watson <cjwatson@debian.org> Fri, 20 Jun 2003 18:57:25 +0100