@verb #47:"send_message" this none this rxdo #60
@program #47:"send_message" this none this
"send_message(from,rcpt-list,hdrs,msg) -- formats and sends a mail message.  hders is either the text of the subject line, or a {subject,{reply-to,...}} list."
"Return E_PERM if from isn't owned by the caller."
"Return {0, @invalid_rcpts} if rcpt-list contains any invalid addresses.  No mail is sent in this case."
"Return {1, @actual_rcpts} if successful."
{from, to, hdrs, msg} = args
if (from == $no_one)
  raise(E_PERM, tostr("No mail from ", $no_one:title(), " please."))
endif
if (caller == from || $perm_utils:controls(caller_perms(), from))
  "  for x in (to)"
  "    if (from in `x.mail_banned ! E_PROPNF, E_PERM => {}')"
  "      raise(E_PERM, tostr(x, \" is banned from the mail recipient \", from));"
  "    endif"
  "  endfor"
  text = $mail_agent:make_message(from, to, hdrs, msg)
  return this:raw_send(text, to, from)
else
  raise(E_PERM)
endif
"Last modified by Lao-Tzu (#8084) on Sun Jan  6 10:04:43 2002 MST."
.