fix message-id regex

diff --git a/delay_mail b/delay_mail
index 56529732c2f0e80eeea8aab8af82dc0745b97aee..9b5ef44c74af5815812f9a283ef8fe915bc91eb8 100755 (executable)
--- 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