lib/PublicInbox/Mbox.pm | 13 +++++-------- lib/PublicInbox/NNTP.pm | 5 +++-- lib/PublicInbox/WwwStream.pm | 9 +++++---- diff --git a/lib/PublicInbox/Mbox.pm b/lib/PublicInbox/Mbox.pm index 64de8c72bb0afe3f7c87b45d993a88286501170d..c88350c90599e1b2739f05f5a3c87a856c61b854 100644 --- a/lib/PublicInbox/Mbox.pm +++ b/lib/PublicInbox/Mbox.pm @@ -106,7 +106,6 @@ $mid = mid_escape($mid); my @append = ( 'Archived-At', "<$base$mid/>", 'List-Archive', "<$base>", - 'List-Post', "{-primary_address}>", ); my $crlf = $header_obj->crlf; my $buf = $header_obj->as_string; @@ -118,13 +117,11 @@ for (my $i = 0; $i < @append; $i += 2) { my $k = $append[$i]; my $v = $append[$i + 1]; my @v = $header_obj->header_raw($k); - foreach (@v) { - if ($v eq $_) { - $v = undef; - last; - } - } - $buf .= "$k: $v$crlf" if defined $v; + $buf .= "$k: $v$crlf" if !grep(/\A\Q$v\E\z/, @v); + } + my $post_addr = $ibx->{-primary_address}; + if ($post_addr && $header_obj->header_raw('List-Post')) { + $buf .= "List-Post: $crlf"; } $buf .= $crlf; } diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm index 0b43cdbc5b9308378d953b250e45f3e8da398ea6..097fdb843fa663e2414b5393cd8196e7fbf4afc4 100644 --- a/lib/PublicInbox/NNTP.pm +++ b/lib/PublicInbox/NNTP.pm @@ -487,8 +487,9 @@ # *something* here is required for leafnode, try to follow # RFC 5536 3.1.5... $hdr->header_set('Path', $server_name . '!not-for-mail'); - - header_append($hdr, 'List-Post', "{-primary_address}>"); + if (my $post_addr = $ibx->{-primary_address}) { + header_append($hdr, 'List-Post', ""); + } if (my $url = $ibx->base_url) { $mid = mid_escape($mid); header_append($hdr, 'Archived-At', "<$url$mid/>"); diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 34e124358d5e588cfae0f8f9cbfb730e33ee921c..66e34a12e885c12c95454933cb42f5082545c53e 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -143,10 +143,10 @@ push @urls, $u =~ /\Ahttps?:/ ? qq($u) : $u; } $urls .= "\n" . join('', map { "\tgit clone --mirror $_\n" } @urls); - my $addrs = $ibx->{address}; - $addrs = join(' ', @$addrs) if ref($addrs) eq 'ARRAY'; - my $v = defined $max ? '-V2' : '-V1'; - $urls .= <{address}) { + $addrs = join(' ', @$addrs) if ref($addrs) eq 'ARRAY'; + my $v = defined $max ? '-V2' : '-V1'; + $urls .= <{name} $dir/ $http \\ $addrs public-inbox-index $dir EOF + } my $cfg_link = ($ctx->{-upfx} // '').'_/text/config/raw'; $urls .= <