@verb #2:"set_aliases _set_aliases" this none this rxdo #55
@program #2:"set_aliases _set_aliases" this none this
"set_aliases(alias_list) attempts to change this.aliases to alias_list"
"  => E_PERM   if you don't own this or aren't its parent"
"  => E_TYPE   if alias_list is not a list"
"  => E_INVARG if any element of alias_list is not a string"
if (!caller_perms():controls(this) && caller != this)
  raise(E_PERM)
elseif (typeof(aliases = args[1]) != $LIST)
  raise(E_TYPE)
endif
goodaliases = {}
for alias in (aliases)
  if (typeof(alias) != STR)
    raise(E_INVARG)
  endif
endfor
strips = $list_utils:map_arg($msg, "MIME_stripped", aliases)
goodaliases = {@goodaliases, @aliases, @strips}
return this.aliases = $list_utils:remove_duplicates(goodaliases)
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Wed May  4 06:45:59 2005 MDT."
.