Fix headers with continuation immediately at start.

Signed-off-by: Thomas Hochstein <thh@thh.name>

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

bin/poster.pl

@@ -200,6 +200,19 @@ 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') :
            '<' . substr (rand() . '-' . time(), 2) . '@' . $config{'mid_fqdn'} . '>';