diff --git a/ChangeLog b/ChangeLog index 38d3b9c..d9131ec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -5,6 +5,7 @@ huhu 0.11.0 (unreleased) * Add wrapper script for read-mail.pl * Drop more headers. * Only connect to newsserver if there are approved posts. + * Fix headers with continuation immediately at start. huhu 0.10 (unknown) * huhu reports version 0.09 (from MOD/Displaylib.pm), but has code diff --git a/bin/poster.pl b/bin/poster.pl index 0dd9cc5..682e35f 100755 --- a/bin/poster.pl +++ b/bin/poster.pl @@ -200,6 +200,18 @@ while (my $ref = $dataref->fetchrow_arrayref) $article->drop_headers(('User-Agent')); } + # Fix headers with continuation immediately at start, i.e. + # X-MyHeader: + # Thisisaveryveryveryveryveryveryveryveryverylongheadervalue. + # will become + # X-MyHeader: Thisisaveryveryveryveryveryveryveryveryverylongheadervalue. + foreach my $header ( $article->header_names() ) { + if ($article->header($header) =~ /^\n/) { + my $fixedheader = $article->header($header); + $fixedheader =~ s/^\n\s+//; + $article->set_headers($header, $fixedheader); + } + } #Neue Message-ID und Approved-Header erzeugen my $mid = defined($article->header('Message-ID')) ? $article->header('Message-ID') :