From 08d592e6cc039eda0578fb7d6371a5e5656eced3 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 24 Sep 2007 07:09:40 +0000
Subject: [PATCH] add some debugging information

---
 delay_mail | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/delay_mail b/delay_mail
index f9e883f..c7d1799 100755
--- a/delay_mail
+++ b/delay_mail
@@ -163,7 +163,7 @@ if (exists $options{enqueue}) {
      my $email = <STDIN>;
      # rip subject out of email
      # we cheat for now; this isn't correct at all.
-     my ($subject) = $email =~ /^Subject:\s+(.+)/;
+     my ($subject) = $email =~ /^Subject:\s*(.+)/i;
      $subject = decode_rfc1522($subject);
      $subject =~ s/\n//g;
      # create a queue entry
@@ -190,6 +190,7 @@ elsif ($options{list}) {
      my @queue;
      while (defined($entry = $dir->read)) {
 	  #valid queue entries are entirely numeric
+	  print STDERR "Dealing with $entry\n" if $DEBUG;
 	  last if not defined $entry;
 	  next if $entry !~ /^\d+$/;
 	  # they're also just readable files
-- 
2.39.5