sub RefreshBuddyList {
    my $user;
    my $nickname;
    for(@_) {
        my $m = $config{MainWindow}->Menu(-tearoff => 0);