#----- printing -----
my $current_branch = current_branch();
-my $current_patch = $current_branch->{Kind} eq 'tip'
- ? $current_branch->{Fullname} : '';
+my $current_patch = '';
+my $ifcurrent;
+if ($current_branch->{Kind} eq 'tip') {
+ $current_patch = $current_branch->{Fullname};
+ $ifcurrent = '>';
+} elsif ($current_branch->{Kind} eq 'base') {
+ $current_patch = $current_branch->{Fullname};
+ $ifcurrent = '#';
+}
foreach my $p (@output) {
my $v = $patches{$p};
$msg =~ m/^Subject:\s*(?:\[[^][]*\]\s*)?(.*\S)\s*$/mi
? $1 : "[no subject]";
printf("%1s%1s %s\@%s/%s/%-20s %s\n",
- $p eq $current_patch ? '>' : '',
+ $p eq $current_patch ? $ifcurrent : '',
$v->{Info}[0]{Deleted} ? 'D' : '',
$pa->{Email}, $pa->{Domain}, $pa->{Date}, $pa->{Nick},
$subject)