# Description: makes all msgs show in the current window

AddToPrefs noqueries bool 0

procs raw_PRIVMSG

proc raw_PRIVMSG {header line} {
    global ume info away prefs
    set to [string tolower [lindex $header 2]]
    set nick [lindex [split [lindex $header 0] !] 0]
    set address [lindex [split [lindex $header 0] !] 1]
    if [string match \001*\001 $line] {
        Ignore CTCP $nick!$address
        set line [string trim $line "\001"]
        set ctcp [lindex [rspaces [split $line]] 0]
        set line [string range $line [expr [string length $ctcp] + 1] end]
        if {[info procs ctcp_$ctcp] != ""} {
            ctcp_$ctcp $header $line
        } else {
            if [mnc $to $ume] {
                Echo .0 "\[ ctcp \] Unknown ctcp [string trim "$ctcp $line"] from $nick!$address" ctcp default
            } else {
                Echo $info(window,$to) "\[ ctcp \] Unknown ctcp [string trim "$ctcp $line"] from $nick!$address" ctcp default
            }
        }
        return
    }
    if [info exists info(window,$to)] {
        ialadd $to $nick $address
        Ignore PUBLIC $nick!$address
        Echo $info(window,$to) "<$nick> $line" none
    } elseif [info exists info(query,[string tolower $nick])] {
        Echo [UpdateChat $nick!$address] "<$nick> $line" none
    } elseif $prefs(noqueries) {
        Ignore MSGS $nick!$address
        Echo [current] "*$nick!$address* $line" privmsg
    } elseif [mnc $ume $to] {
        Ignore MSGS $nick!$address
        if {$away && ![info exists info(query,[string tolower $nick])]} {
            Echo .0 "*$nick!$address* $line" privmsg
        } else {
            Echo [UpdateChat $nick!$address] "<$nick> $line" none
        }
    } else {
        Echo .0 "*$nick/$to* $line" privmsg
    }
    Event text 2 "nick nick address address to channel line line" $to $nick!$address $line
}

proc unload { } {
    RemoveFromPrefs noqueries
}