'List-Post', "<mailto:$ibx->{-primary_address}>",
);
my $crlf = $header_obj->crlf;
- my $buf = "From mboxrd\@z Thu Jan 1 00:00:00 1970\n" .
+ my $buf = 'From mboxrd@z Thu Jan 1 00:00:00 1970' . $crlf .
$header_obj->as_string;
for (my $i = 0; $i < @append; $i += 2) {
my $k = $append[$i];