fix bug in convert_mbox.pl
authorPaul Mangan <paul@claws-mail.org>
Mon, 12 May 2003 14:40:48 +0000 (14:40 +0000)
committerPaul Mangan <paul@claws-mail.org>
Mon, 12 May 2003 14:40:48 +0000 (14:40 +0000)
ChangeLog.claws
tools/convert_mbox.pl

index 65924c1..3dcf8b3 100644 (file)
@@ -1,3 +1,8 @@
+2003-05-12 [paul]
+
+       * tools/convert_mbox.pl
+               bug fixed by Fred Marton
+
 2003-05-12 [paul]
 
        * sync with 0.9.0pre1
index fa1e8ee..16b5d9e 100644 (file)
@@ -45,11 +45,15 @@ $i = 0;
 open (IN, $mbox);
 while ($line = <IN>) {
 # check for the beginning of an e-mail
-   @word = split(/ /m,$line);
+   @word = split(/ +/m,$line);
+# some lines might start with "From ", so check
+# to see if the seventh word is a year
+   chomp($word[6]);
+   $year = $word[6];
 # ignore the MAILER-DAEMON message from pine
    if (@word[1] ne "MAILER-DAEMON") {
 # start a new file
-      if (@word[0] eq "From") {
+      if (@word[0] eq "From" && $year > 1970) {
          $i++;
          close (OUT);
          open (OUT, ">$mh/$i");