We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 8d314d7 commit 1fe9703Copy full SHA for 1fe9703
git-send-email.perl
@@ -1003,15 +1003,17 @@ sub sanitize_address {
1003
return $recipient;
1004
}
1005
1006
+ # remove non-escaped quotes
1007
+ $recipient_name =~ s/(^|[^\\])"/$1/g;
1008
+
1009
# rfc2047 is needed if a non-ascii char is included
1010
if ($recipient_name =~ /[^[:ascii:]]/) {
- $recipient_name =~ s/^"(.*)"$/$1/;
1011
$recipient_name = quote_rfc2047($recipient_name);
1012
1013
1014
# double quotes are needed if specials or CTLs are included
1015
elsif ($recipient_name =~ /[][()<>@,;:\\".\000-\037\177]/) {
- $recipient_name =~ s/(["\\\r])/\\$1/g;
1016
+ $recipient_name =~ s/([\\\r])/\\$1/g;
1017
$recipient_name = qq["$recipient_name"];
1018
1019
0 commit comments