@verb #57:"_kick" this none this rxdo #55
@program #57:"_kick" this none this
"Begin generic security check (_kick)"
if (verb == "_kick" && !args[1]:isa(this))
  raise(E_INVARG, "Illegal object", args[1])
  return E_INVARG
endif
"End generic security check (_kick)"
for x in (this.queued_rcpts)
  if (!valid(x) || (!x:isa($project) && !is_player(x)) || x:isa($trash))
    this:dequeue_delivery($postman.queued_mail[x in $postman.queued_rcpts])
  endif
  $command_utils:suspend_if_needed()
endfor
for x in (this.queued_mail)
  if (!valid(x) || (!x:isa($project) && !is_player(x)) || x:isa($trash) || x.location != this)
    this:dequeue_delivery(x)
  endif
  $command_utils:suspend_if_needed()
endfor
for x in [1..length(this.queued_rcpts)]
  if (!valid(y = this.queued_rcpts[x]))
    this:dequeue_delivery(this.queued_mail[x])
  else
    try
      this:queue_delivery(y, y.owner, this, this)
    except (ANY)
      try
        move(y, $junk_pile)
      except (E_RECMOVE)
        "You lose!"
      endtry
    endtry
  endif
endfor
for x in ({@this.contents, @this.mail_room.contents})
  if (!(x in this.queued_mail))
    this:queue_delivery(x, x.owner, this, this)
  endif
  $command_utils:suspend_if_needed()
endfor
"Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:05 2002 MDT."
.