address: filter out domain from address-as-name idents

It seems common for address entries to end up as:
	"foo@example" <foo@example>

Avoid needlessly displaying the domain name in that case.

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/PublicInbox/Address.pm b/lib/PublicInbox/Address.pm
index cd5fbfbe..e17d0b57 100644
--- a/lib/PublicInbox/Address.pm
+++ b/lib/PublicInbox/Address.pm
@@ -16,7 +16,9 @@ sub names {
                 my $e = $1;
                 s/\A['"\s]*//;
                 s/['"\s]*\z//;
-                $_ =~ /\S/ ? $_ : $e;
+                $e = $_ =~ /\S/ ? $_ : $e;
+                $e =~ s/\@\S+\z//;
+                $e;
         } split(/\@+[\w\.\-]+>?\s*(?:,\s*|\z)/, $_[0]);
 }