-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- Mailer.mesa, HGM, 18-Feb-83 13:09:01

Mailer: DEFINITIONS =
  BEGIN

  Level: TYPE = {rejection, trouble, ok};

  -- Don't forget to include the registry on from, to, cc, and troubles.
  -- Rejection messages from mail forwarders get sent to troubles.

  SendGVMail: PROCEDURE [
    subject, to, cc, body, troubles: LONG STRING,
    info: PROCEDURE [s: LONG STRING, level: Level]] RETURNS [worked: BOOLEAN];

  END.