putnow should probably not call the queued-out-bind

[thommey]

bind out - "% queued" circumvent_queues
proc circumvent_queues {queue text status} {
	putnow $text;
	return 1;
}

does not currently work because tcl_putnow calls check_tcl_out with "queued" state as well (infinite recursion). I don't remember if this was fully intentional and my first instinct is that putnow should simply not call with the "queued" state, only with "sent" because you should not be able to block it (?).

bind out - "% queued" circumvent_queues
proc circumvent_queues {queue text status} {
	if {$queue eq "noqueue"} {
		return 0
	}
	putnow $text;
	return 1;
}

This was the latest version on the old wiki which works.

Found by: Release_