17 push @messages, ($message);
18 $dates{$message} = defined $date ? $date : $fromdate;
23 $fromdate =~ s/ +/ /g;
24 $fromdate = str2time $fromdate;
27 elsif (!(defined $date) && /^Date: (.*)/)
40 push @messages, ($message);
41 $dates{$message} = defined $date ? $date : $fromdate;
44 print (sort { $dates{$a} <=> $dates{$b} } @messages);