delete-messages.tcl