-}
-
-proc tell_getcstate {} {
- # uses nl from caller's context
- # imports telling (as the nick_telling) and u
- # sets stt, telling_when
- uplevel 1 {
- upvar #0 nick_telling($nl) telling
- upvar #0 nick_unique($nl) u
-
- if {[info exists telling]} {
- manyset $telling u_last stt telling_when
- if {![info exists u] || "$u_last" != "$u"} {
- unset telling; unset stt; unset telling_when
- }
- }
-
- if {![info exists stt]} {
- set stt norecord
- set telling_when $now
- }
- }