diff options
author | Andreas Gruenbacher <agruen@linbit.com> | 2011-12-07 18:52:39 +0100 |
---|---|---|
committer | Andreas Gruenbacher <agruen@linbit.com> | 2011-12-07 18:57:52 +0100 |
commit | 00e551287a23749c7d1b0bc3e25741a5bd360bcd (patch) | |
tree | a6bab8a9771ffc9619eb08ba07623928c3246a4a | |
parent | eccbe8d7db4dfcbcd6a5c3f7c1949c9681f3faf0 (diff) | |
download | quilt-00e551287a23749c7d1b0bc3e25741a5bd360bcd.tar.gz |
quilt mail: Fix delivery address checking
Make sure to remove trailing whitespace (including the newline) when extracting
recipient addresses from headers.
-rw-r--r-- | quilt/scripts/edmail.in | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/quilt/scripts/edmail.in b/quilt/scripts/edmail.in index 10aa771..140355b 100644 --- a/quilt/scripts/edmail.in +++ b/quilt/scripts/edmail.in @@ -128,11 +128,12 @@ sub split_recipients($) { while ($recipients !~ /^\s*$/) { my $recipient; if ($recipients =~ s/^\s*,?\s*((?:"(?:[^"]+)"|[^",])*)//) { - $recipient = $1; s/\s*$//; + $recipient = $1; } else { $recipient = $recipients; $recipients = ""; } + $recipient =~ s/\s*$//; push @list, $recipient; } return @list; @@ -144,7 +145,7 @@ sub process_header($) { my ($name, $value); return unless defined $_; - unless (($name, $value) = /^([\41-\176]+):\s*(.*)\s*/s) { + unless (($name, $value) = /^([\41-\176]+):\s*(.*)/s) { print; return } |