From 0bce6aa8226a955208d45c418adf9e0ac5ee8aa5 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Sat, 12 Apr 2014 09:59:41 +0000
Subject: derive -primary_address in config

This may be useful for generating List-Id headers and HTML pages.
---
 lib/PublicInbox/Config.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/PublicInbox/Config.pm')

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index c8f2a8d8..d71bc52e 100644
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -64,6 +64,8 @@ sub lookup {
 	my $listname = $pfx;
 	$listname =~ s/\Apublicinbox\.//;
 	$rv{listname} = $listname;
+	my $v = $rv{address};
+	$rv{-primary_address} = ref($v) eq 'ARRAY' ? $v->[0] : $v;
 	\%rv;
 }
 
-- 
cgit v1.2.3-24-ge0c7