Deal more sensibly with various combinations of input format

diff --git a/xlog/bin/record b/xlog/bin/record
index 11c7e605678d4d0dc8339506be5c3e243d45fa3a..1ba50b70ae543452a6e303297dbc9fcb0225a0e6 100755 (executable)
--- a/xlog/bin/record
+++ b/xlog/bin/record
@@ -39,16 +39,28 @@ sub parse_posted () {
 }
 sub parse_submission () {
     my $hadng=0;
+    my %oldf;
+    my $had2=0;
     while (<STDIN>) {
        chomp;
+print STDERR "$hadng $had2|$_|\n";
        $hadng++ if m/^Newsgroups:/i;
        if (m/^$/) {
            last if $hadng;
+           last if $had2++;
+           %oldf= %f;
            undef %f;
        }
+       last unless m/^\S+\:|^\s|^$|^From /;
        parse__headerline();
     }
-    $f{Event}= 'receive';
+    if ($hadng) {
+       $f{Event}= $had2 ? 'receive newstyle' : 'receive';
+    } else {
+       %f= %oldf if $had2;
+       $f{Subject}= '[suppressed]';
+       $f{Event}= 'receive junk';
+    }
 }
 
 sub parse_stump2webstump () {