-proc tell_event_core {nl event} {
- # event is `talk', `act' or `ident'
- # When user talks we actually get talk now and act later
-FIXME - implement all cmds
-FIXME - implement tells_delete_msgs catch { unset stt } ?
-FIXME - document the extra param to recordlastseen
- global calling_nick
- set calling_nick $nl
- set iml [msgdb_get $nl inbound]
- if {![llength $iml]} return
+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