@verb #47:"sends_to" this none this rxdo #60
@program #47:"sends_to" this none this
"sends_to(from,addr,rcpt[,seen]) ==> true iff mail sent to addr passes through rcpt."
if ((addr = args[2]) == (rcpt = args[3]))
  return 1
elseif (!(addr in (seen = length(args) >= 4 ? args[4] | {})))
  seen = {@seen, addr}
  for a in (typeof(fwd = this:mail_forward(addr, @args[1] ? {} | {args[1]})) == $LIST ? fwd | {})
    if (this:sends_to(addr, a, rcpt, seen))
      return 1
    endif
    $command_utils:suspend_if_needed()
  endfor
endif
return 0
"Last modified by Dax (#789) on Tue May  3 13:55:53 2005 MDT."
.