Improve typing notice.

rlishtaba · May 18, 2012 · 1ce88ed · 1ce88ed
1 parent 7a65c5a
commit 1ce88ed
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/perl/irssi/bitlbee_typing_notice.pl b/perl/irssi/bitlbee_typing_notice.pl
@@ -68,7 +68,7 @@ sub typing {
 	return unless $server->isupport('NETWORK') eq 'BitlBee';
 
 	if (my ($type) = $msg =~ /TYPING ([0-9])/) {
-		unless ($protocols->{$address}) {
+		unless ($querying->{$from} || defined $protocols->{$address}) {
 			$querying->{$from} = 1;
 
 			$server->command("whois $from");
@@ -116,6 +116,8 @@ sub typing {
 		}
 
 		if ($number == 318) {
+			$protocols->{$address} = 0;
+
 			delete $querying->{$nick};
 		}
 	}