+proc tell_peernicks {text} {
+ set text [irctolower [string trim $text]]
+ set senders [split $text " "]
+ foreach sender $senders {
+ if {[catch { check_nick $sender } emsg]} {
+ error "invalid sender nick `$sender': $emsg" $errorInfo $errorCode
+ }
+ }
+ return $senders
+}
+
+proc tell_delete_msgs {lsenders lrecip} {
+FIXME - check callers pass l* not mixed case
+ set ninbound {}
+ set ndel 0
+ foreach {s t m} [msgsdb_get $recip inbound] {
+ if {[llength $senders]} {
+ if {[lsearch -exact $senders [irctolower $s]] == -1} {
+ lappend ninbound $s $t $m
+ continue
+ }
+ }
+ set rsenders($s) 1
+ incr ndel
+ }
+ msgsdb_set $recip inbound $ninbound
+ foreach s [array names rsenders] {
+ set noutbound {}
+ foreach {r t c} [msgsdb_get $s outbound] {
+ if {"[irctolower $r]" == "$lrecip"} continue
+ lappend noutbound $r $t $c
+ }
+ msgsdb_set $s outbound $noutbound
+ }
+ return $ndel
+}