address: remove quotes around names

[public-inbox.git] / lib / PublicInbox / Address.pm

diff --git a/lib/PublicInbox/Address.pm b/lib/PublicInbox/Address.pm
index ef4cbdc62bd15057bf135f8aad15f6a0228a4de1..772adedb29b3ed1546a647181a31609e5f3d7766 100644 (file)
--- a/lib/PublicInbox/Address.pm
+++ b/lib/PublicInbox/Address.pm
@@ -7,7 +7,7 @@ use warnings;
 # very loose regexes, here.  We don't need RFC-compliance,
 # just enough to make thing sanely displayable and pass to git
 
-sub emails { ($_[0] =~ /([^<\s]+\@[^>\s]+)/g) }
+sub emails { ($_[0] =~ /([^<\s,]+\@[^>\s,]+)/g) }
 
 sub from_name {
        my ($val) = @_;
@@ -18,7 +18,8 @@ sub from_name {
                $name =~ s/\@.*//;
        }
        $name =~ tr/\r\n\t/ /;
-       $name =~ s/\A\s*//;
+       $name =~ s/\A['"\s]*//;
+       $name =~ s/['"\s]*\z//;
        $name;
 }