# Description: turns query text gray if the person is marked away

set color gray

proc event_301 {header line} {
    global info
    variable color
    set nick [string tolower [lindex $header end]]
    if {[info exists info(query,$nick)]} {
        after cancel [list [namespace current]::uncolor $nick]
        after 300000 [list [namespace current]::uncolor $nick]
        $info(text,$info(query,$nick)) configure -foreground $color
    }
}

proc event_401 {header line} {
    set nick [lindex $header end]
    if {[info exists info(query,[string tolower $nick])]} {
        Echo $info(query,[string tolower $nick]) "( 401 ) $nick $line" numeric
    }
}

proc uncolor {nick} {
    global info prefs
    catch {$info(text,$info(query,$nick)) configure -foreground $prefs(color,query,foreground)}
}

proc unload {} {
    set ns [namespace current]
    foreach x [after info] {
        set cmd [lindex [after info $x] 0]
        if {[string match "${ns}::uncolor *" $cmd]} {
            after cancel $x
            eval $cmd
        }
    }
}