How about a switch for /close to close all query windows that don't have unread text in them.

Between Khaled integrate this function you can use my script ..
Copy this code .. And in the mirc type alt+r and paste it ..
Then just type /CloseReadedQuerys ..

Alias CloseReadedQuerys {
var %TotalQuerys = $query(0)
var %i = 1
while (%i <= %TotalQuerys) {
var %CurNick = $query(%i) | If (%CurNick = $null) halt
;Thanx at Doqnach 4 $window(N/@name).sbcolor
If ($window(%CurNick).sbcolor != message) { window -c %CurNick | dec %i }
inc %i
}
}