should be /m when testing for subject

[bin.git] / delay_mail

diff --git a/delay_mail b/delay_mail
index 854dacbab577b3ad048c5186f4bca1eaa1cec5a5..4713b53dab04d0ea037da50f3692fb820e79b1aa 100755 (executable)
--- 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*(.+)/i;
+     my ($subject) = $email =~ /^Subject:\s*(.+)/mi;
      $subject = decode_rfc1522($subject);
      $subject =~ s/\n//g;
      # create a queue entry