address: remove Address::from_name

Address::names is sufficient to handle what from_name did.

diff --git a/lib/PublicInbox/Address.pm b/lib/PublicInbox/Address.pm
index abba43d1f03ef25d032ee31abf07a78767d40e97..cd5fbfbe3c4289e3028dc0b823a54c3121dfb672 100644 (file)
--- a/lib/PublicInbox/Address.pm
+++ b/lib/PublicInbox/Address.pm
@@ -20,18 +20,4 @@ sub names {
        } split(/\@+[\w\.\-]+>?\s*(?:,\s*|\z)/, $_[0]);
 }
 
-sub from_name {
-       my ($val) = @_;
-       my $name = $val;
-       $name =~ s/\s*\S+\@\S+\s*\z//;
-       if ($name !~ /\S/ || $name =~ /[<>]/) { # git does not like [<>]
-               ($name) = emails($val);
-               $name =~ s/\@.*//;
-       }
-       $name =~ tr/\r\n\t/ /;
-       $name =~ s/\A['"\s]*//;
-       $name =~ s/['"\s]*\z//;
-       $name;
-}
-
 1;

diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm
index 455b8e23362a9c0da82f462f407b0c5d4ec6e8bb..8e2330619a35ac032f951a9fd91be683caee653a 100644 (file)
--- a/lib/PublicInbox/Feed.pm
+++ b/lib/PublicInbox/Feed.pm
@@ -317,7 +317,7 @@ sub feed_entry {
 
        my $from = $header_obj->header('From') or return;
        my ($email) = PublicInbox::Address::emails($from);
-       my $name = PublicInbox::Address::from_name($from);
+       my $name = join(', ',PublicInbox::Address::names($from));
        $name = ascii_html($name);
        $email = ascii_html($email);
 

diff --git a/lib/PublicInbox/SearchMsg.pm b/lib/PublicInbox/SearchMsg.pm
index d41d24390eb790c84239d2c096d069cdc0a9b984..4b0b645e17af961b9bf450f57756fce97acba481 100644 (file)
--- a/lib/PublicInbox/SearchMsg.pm
+++ b/lib/PublicInbox/SearchMsg.pm
@@ -85,7 +85,8 @@ sub from ($) {
        my ($self) = @_;
        my $from = __hdr($self, 'from');
        if (defined $from && !defined $self->{from_name}) {
-               $self->{from_name} = PublicInbox::Address::from_name($from);
+               my @n = PublicInbox::Address::names($from);
+               $self->{from_name} = join(', ', @n);
        }
        $from;
 }

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index d906276a63e8f27e49c45d64a7eff3fcbe8c73d5..30d8e3e8eddc28619863fce011abd0d80ed8300c 100644 (file)
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -354,8 +354,8 @@ sub _msg_html_prepare {
                $v = PublicInbox::Hval->new($v);
 
                if ($h eq 'From') {
-                       my $n = PublicInbox::Address::from_name($v->raw);
-                       $title[1] = ascii_html($n);
+                       my @n = PublicInbox::Address::names($v->raw);
+                       $title[1] = ascii_html(join(', ', @n));
                } elsif ($h eq 'Subject') {
                        $title[0] = $v->as_html;
                        if ($srch) {

diff --git a/t/mda.t b/t/mda.t
index f3c5164b44b3ef36e556f752fb71e780f25f61f6..32154bdce7e597b12607d112dab7047640e31943 100644 (file)
--- a/t/mda.t
+++ b/t/mda.t
@@ -57,7 +57,7 @@ local $ENV{GIT_COMMITTER_NAME} = eval {
        my $msg = Email::MIME->new($str);
 
        my $from = $msg->header('From');
-       my $author = PublicInbox::Address::from_name($from);
+       my ($author) = PublicInbox::Address::names($from);
        my ($email) = PublicInbox::Address::emails($from);
        my $date = $msg->header('Date');