+ my $pa = $v->{ParsedName};
+ my ($msgkind, $msg) = git_get_object("$pa->{Ref}:.topbloke/msg");
+ if ($msgkind ne 'blob') {
+ warn "$p $msgkind ?";
+ next;
+ }
+ my $subject =
+ $msg =~ m/^Subject:\s*(?:\[[^][]*\]\s*)?(.*\S)\s*$/mi
+ ? $1 : "[no subject]";
+ printf("%1s%1s %s\@%s/%s/%-20s %s\n",
+ $p eq $current_patch ? $ifcurrent : '',
+ defined $v->{Meta}{'deleted'} ? 'D' : '',
+ $pa->{Email}, $pa->{Domain}, $pa->{Date}, $pa->{Nick},
+ $subject)
+ or die $!;