+ refuse - mailto {
+ usererror \
+ "There are no messages to delete\
+ because your message disposition prevents them from being left."
+ }
+ secure {
+ nick_securitycheck 1
+ }
+ default {
+ error "delmsg sec $sec"
+ }
+ }
+ 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
+ }
+ }
+ tell_delete_msgs [irctolower $senders] [irctolower $n]
+ switch -exact [llength $senders] {
+ 0 { ucmdr {} {} "deletes your message(s)." }
+ 1 { ucmdr {} {} "deletes your message(s) from $senders." }
+ default {
+ ucmdr {} {} "deletes your message(s) from\
+ [lreplace $senders end end] and [lindex $senders end]."
+ }
+ }