#! PERL_COMMAND -w
-# $Cambridge: exim/src/src/exigrep.src,v 1.1 2004/10/07 10:39:01 ph10 Exp $
+# $Cambridge: exim/src/src/exigrep.src,v 1.2 2004/12/21 11:28:38 ph10 Exp $
use strict;
# print it, but in any event, throw away what was saved.
if ($entry =~
- /(?:Completed$|rejected (?:by local_scan|by non-SMTP ACL|after DATA))/)
+ /(?:Completed|rejected (?:by local_scan|by non-SMTP ACL|after DATA))/)
{
if ($saved{$id} =~ /^(\d{4}-\d\d-\d\d \d\d:\d\d:\d\d ([+-]\d{4} )?)(\w{6}\-\w{6}\-\w{2})/)
{