ucmdr "Removed $ndel as yet undelivered message(s)." {}
}
+def_ucmd_alias delmsgs delmsg
def_ucmd delmsg {
global errorInfo errorCode
prefix_nick
manyset [nickdb_get_sec_effective $n] sec secwhen
switch -exact $sec {
insecure { }
- refuse - mailto {
+ reject - mailto {
usererror \
"There are no messages to delete\
because your message disposition prevents them from being left."
1 { ucmdr {} {} "deletes your $ndel message(s) from $senders." }
default {
ucmdr {} {} "deletes your $ndel message(s) from\
- [lreplace $senders end end] and [lindex $senders end]."
+ [lreplace $senders end end] and/or [lindex $senders end]."
}
}
}
prefix_nick
ta_nomore
check_notonchan
+ manyset [nickdb_get $n tellsec] sec
+ switch -exact $sec {
+ reject { ucmdr "But, you asked me to reject messages for you !" {} }
+ mailto { ucmdr "But, you asked me to mail your messages to you !" {} }
+ }
switch -exact [tell_event [irctolower $n] tellme] {
ERROR - INVALID { ucmdr {} {is ill. Help!} }
nomsgs { ucmdr {You have no messages.} {} }
"I've mailed $ctarget, which is what they prefer." \
{}
}
- refuse {
+ reject {
usererror "Sorry, $ctarget does not want me to take messages."
}
default {
securely. See `help register'.)"
}
}
- refuse {
+ reject {
return "I shan't accept messages for you."
}
mailto {
set mr [tellme_rel_desc [nickdb_get $n tellrel] $n]
return "$ms $mr"
}
- refuse - mailto {
+ reject - mailto {
return $ms
}
}
} {
set setting [string tolower [ta_word]]
+ set nl [irctolower $n]
switch -exact $setting {
insecure {
tellme_setting_sec_simple
set sr sec
set v [list secure $every]
}
- refuse {
+ reject {
tellme_setting_neednomsgs
tellme_setting_sec_simple
}
mailto {
tellme_setting_neednomsgs
- if {![string length [set u [nickdb_get_username $n]]]} {
+ upvar #0 nick_username($nl) nu
+ if {!([info exists nu] && [string length $nu])} {
usererror \
"Sorry, you must register securely to have your messages mailed\
(to prevent the use of this feature for spamming). See `help register'."
}
set sr sec
- set v [list mailto [ta_word] $u]
+ set v [list mailto [ta_word] $nu]
}
unreliable - pester - remind {
manyset [nickdb_get $n tellsec] sec
switch -exact $sec {
- refuse - mailto {
+ reject - mailto {
usererror \
- "You can't change your message delivery conditions when\
- your message disposition prevents messages from being left."
+ "Sorry, I shan't change when I'll consider a message delivered, because\
+ you've asked me not to keep messages, or to mail them to you.\
+ You should say `set tellme secure' or some such, first."
}
}
set sr rel
}
}
nickdb_set $n tell$sr $v
- upvar #0 nick_telling([irctolower $n]) telling
+ upvar #0 nick_telling($nl) telling
catch { unset telling }
ucmdr [tellme_${sr}_desc $v $n] {}
}