lib/PublicInbox/Config.pm | 3 +++ t/config.t | 3 ++- diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm index b6885a3108dfec79b72d5d28e25f8e8644605a44..300dd88bf2bd5bd402339379ac47552ada3ec219 100644 --- a/lib/PublicInbox/Config.pm +++ b/lib/PublicInbox/Config.pm @@ -35,6 +35,9 @@ my %rv = map { $_ => $self->{"$pfx.$_"} } (qw(mainrepo description address)); + my $listname = $pfx; + $listname =~ s/\Apublicinbox\.//; + $rv{listname} = $listname; \%rv; } diff --git a/t/config.t b/t/config.t index 145589ead5d227e50e21a84589d7b1ee0b770a2a..44e051f2f939caab3f3b040f369ffec70055e1a5 100644 --- a/t/config.t +++ b/t/config.t @@ -28,7 +28,8 @@ my $cfg = PublicInbox::Config->new($f); is_deeply($cfg->lookup('bugs@public-inbox.org'), { 'mainrepo' => '/home/pi/bugs-main.git', 'address' => 'bugs@public-inbox.org', - 'description' => 'development discussion' + 'description' => 'development discussion', + 'listname' => 'bugs', }, "lookup matches expected output"); is($cfg->lookup('blah@example.com'), undef,