X-Git-Url: http://git.claws-mail.org/?p=clawsker.git;a=blobdiff_plain;f=clawsker;h=e657275577012eac608676a1e5fc895aefce7642;hp=27ea596e7135364d2a8a0cc33625546a06372b26;hb=4791d4987b6ee2f2affca69f62f9d9b8447196c4;hpb=56bf0d2908e7f8a402b108f36b825b1c207795af diff --git a/clawsker b/clawsker index 27ea596..e657275 100755 --- a/clawsker +++ b/clawsker @@ -1856,7 +1856,13 @@ sub new_accounts_page() { $accbook->set_tab_pos ('right'); foreach (keys %ACPREFS) { my $name = $ACPREFS{$_}{'account_name'}; - $accbook->append_page (new_account_subpage ($_), $name); + my $isdef = ($ACPREFS{$_}{'is_default'} eq '1'); + my $page = new_account_subpage ($_); + $accbook->append_page ($page, $isdef? '' . $name . '': $name); + if ($isdef) { + my $label = $accbook->get_tab_label ($page); + $label->set_use_markup (TRUE); + } } return $accbook; }