X-Git-Url: https://vcs.fsf.org/?p=exim.git;a=blobdiff_plain;f=src%2Fsrc%2Fexigrep.src;h=6024b425f18a021cdd7485204f8e975bf5f8d274;hp=aa03eb4896ff8afb6305dc412904752842fd786b;hb=79749a79c6e24778bcd27236a2846f39ccf18b2a;hpb=b2d5182ba3c9c24a92edc47d9e4f8bae41c6ca0a

diff --git a/src/src/exigrep.src b/src/src/exigrep.src
index aa03eb489..6024b425f 100644
--- 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.7 2007/03/13 11:06:48 ph10 Exp $
+# $Cambridge: exim/src/src/exigrep.src,v 1.8 2007/03/13 11:26:49 ph10 Exp $
 
 use strict;
 
@@ -172,8 +172,16 @@ if (@ARGV)
 
 else { do_line() while (<STDIN>); }
 
-# At the end of processing all the input, print any uncompleted data
+# At the end of processing all the input, print any uncompleted messages. If
+# there is no <= line, we are dealing with a message that was rejected or
+# abandoned.
 
-for (keys %id_list) { print "+++ $_ not completed +++\n$saved{$_}\n"; }
+for (keys %id_list)
+  {
+  if ($saved{$_} =~ /\s<=\s/)
+    { print "+++ $_ has not completed +++\n$saved{$_}\n"; }
+  else
+    { print "+++ $_ was not accepted +++\n$saved{$_}\n"; }
+  }
 
 # End of exigrep