From: Dylan Lloyd <redacted>
Date: Thu, 28 Feb 2019 12:48:53 +0000 (-0500)
Subject: respect case_sensitive opt
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=48a05992bbc6757c2995e3e936e40f6faa3b09dd;p=irssi-scripts.irssi.org.git

respect case_sensitive opt
---

diff --git a/scripts/go.pl b/scripts/go.pl
index 0e23322..cdb5692 100644
--- a/scripts/go.pl
+++ b/scripts/go.pl
@@ -76,15 +76,17 @@ sub cmd_go
 {
 	my($chan,$server,$witem) = @_;
 
+	my $case_sensitive = Irssi::settings_get_bool('go_match_case_sensitive');
+	my $match_anchored = Irssi::settings_get_bool('go_match_anchored');
+
 	$chan =~ s/ *//g;
-	my $re = _make_regexp($chan,
-		Irssi::settings_get_bool('go_match_case_sensitive'),
-		Irssi::settings_get_bool('go_match_anchored'));
+	my $re = _make_regexp($chan, $case_sensitive, $match_anchored);
 
 	my @matches;
 	foreach my $w (Irssi::windows) {
 		my $name = $w->get_active_name();
-		if (CORE::fc $name eq CORE::fc $chan) {
+		if (($case_sensitive && $name eq $chan) ||
+			(!$case_sensitive && CORE::fc $name eq CORE::fc $chan)) {
 			$w->set_active();
 			return;
 		} elsif ($name =~ /$re/) {