bind msg - !addmail xtra:setmail
proc xtra:setmail { nick uhost handle args } {
   set vhand [lindex $args 0]
   set vemail [lindex $args 1]
   setuser [nick2hand $vhand] EMAIL $vemail
   return 1
}
bind msg - !mail xtra:getmail
proc xtra:getmail {nick uhost handle args } {
   set vhand [lindex $args 0]
   putserv "PRIVMSG $nick :L'email de $vhand est [getuser [nick2hand $vhand] EMAIL]"
   return 1
}