(1) Don't ignore timeouts while writing to a pipe! (As opposed to

[exim.git] / src / src / exigrep.src

diff --git a/src/src/exigrep.src b/src/src/exigrep.src
index bcd35973592ce26c3528dbb701e0fc9b1acb7cb7..e824bb41ca1e7e51d7d985dc8ea1c13050e9ee5a 100644 (file)
--- a/src/src/exigrep.src
+++ b/src/src/exigrep.src
@@ -1,5 +1,5 @@
 #! 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;
 
@@ -81,7 +81,7 @@ if (my($id) = $entry =~ /^(\w{6}\-\w{6}\-\w{2})/)
   # 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})/)
       {