Comment 3 for bug 173051

You mean that subject shall be sent on FocusOut event on the subject entry widget instead of:

proc ::Chat::OnFocusOutSubject {chattoken} {
    variable $chattoken
    upvar 0 $chattoken chatstate

    # Reset to previous subject.
    set chatstate(subject) $chatstate(subjectOld)
}