gistfile1.txt

    $correction_window = Irssi::window_find_name('corrections');

    if ($correction_window)
    {   
            $w = $correction_window;
    }   
    else
    {   
            $w = $win;
    }   

    # we found a mistake, print suggestions

    $word =~ s/%/%%/g;
    my $color = Irssi::settings_get_str('spellcheck_word_color');
    if (scalar @$suggestions > 0)
    {   
        $w->print("Suggestions for $color$word%N - " . join(", ", @$suggestions));
    }   
    else
    {   
        $w->print("No suggestions for $color$word%N");
    }