+ my $feed_opts = $ctx->{feed_opts};
+ unless ($feed_opts) {
+ require PublicInbox::Feed; # FIXME: gross
+ $feed_opts = PublicInbox::Feed::get_feedopts($ctx);
+ $ctx->{feed_opts} = $feed_opts;
+ }
+ my $base = $feed_opts->{url};
+ my $mid = mid_clean($header_obj->header('Message-ID'));
+ $mid = uri_escape_utf8($mid);
+ my @archived_at = $header_obj->header('Archived-At');
+ push @archived_at, "<$base$mid/>";
+ $header_obj->header_set('Archived-At', @archived_at);
+ $header_obj->header_set('List-Archive', "<$base>");
+ $header_obj->header_set('List-Post', "<mailto:$feed_opts->{id_addr}>");