Test from tkchat

proc ::tkjabber::away { status {show away} } {
    variable AwayStatus
    variable conference

    set AwayStatus $status
    set jid $conference/[$tkjabber::muc mynick $conference]
    $tkjabber::jabber send_presence -type available \
	    -from $jid -to $conference -show $show -status $status
    autoStatus
}