# check to make sure the time is positive, and that the auth token
# has not expired
my $tdiff = (time - $time);
# check to make sure the time is positive, and that the auth token
# has not expired
my $tdiff = (time - $time);
- my ($date,$user,$list,$msgid) = ($lastseen =~ /^\[(.+?)\]\s+"(.+?)"\s+"(?:<(.+?)>.+?|\-)"\s+"<(.+?)>"/);
+ my ($date,$user,$list,$msgid) = ($lastseen =~ /^\[(.+?)\]\s+"(.+?)"\s+"(?:<(.+?)>.*?|\-)"\s+"<(.+?)>"/);