From b18a745610b9b67deba0d6c4cd6a01dd620c1b73 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 24 Sep 2007 07:44:52 +0000
Subject: [PATCH] fix message-id regex

---
 delay_mail | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/delay_mail b/delay_mail
index 5652973..9b5ef44 100755
--- a/delay_mail
+++ b/delay_mail
@@ -225,11 +225,11 @@ elsif ($options{process}) {
 	       die "Unable to parse $options{process}";
 	  }
 	  # munge the message id
-	  my ($message_id) = $q_e->{email} =~ m/^Message-Id:\s*(.+)/;
+	  my ($message_id) = $q_e->{email} =~ m/^Message-Id:\s*(.+)/mi;
 	  if (not $message_id =~ s/\@/delay$q_e->{entry}@/){
 	       $message_id =~ s/(\w)/delay$q_e->{entry}$1/;
 	  }
-	  $q_e->{email} =~ s/^(Message-Id:\s*)(.+)/$1$message_id/;
+	  $q_e->{email} =~ s/^(Message-Id:\s*)(.+)/$1$message_id/mi;
 	  # send the message
 	  my $sendmail_fh;
 	  open($sendmail_fh,'|-','/usr/sbin/sendmail',$q_e->{mailto}) or
-- 
2.39.5