diff --git a/git-send-email.perl b/git-send-email.perl
index b17d2619875112215465c7399fa30e592ed71b01..c42dc3bc943edb2e8f5d9e11a309f6e6d86848ab 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
}
my ($author_name) = ($from =~ /^(.*?)\s+</);
- if ($author_name =~ /\./ && $author_name !~ /^".*"$/) {
+ if ($author_name && $author_name =~ /\./ && $author_name !~ /^".*"$/) {
my ($name, $addr) = ($from =~ /^(.*?)(\s+<.*)/);
$from = "\"$name\"$addr";
}
$2, $_) unless $quiet;
push @cc, $2;
}
- elsif (/^[-A-Za-z]+:\s+\S/) {
+ elsif (!/^Date:\s/ && /^[-A-Za-z]+:\s+\S/) {
push @xh, $_;
}