-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- TestMailerGV.mesa, HGM, 18-Feb-83 13:33:30

DIRECTORY
  Heap USING [systemZone],
  Put USING [Line],
  String USING [AppendString],
  Mailer USING [Level, SendGVMail];
  
TestMailerGV: MONITOR
  IMPORTS
    Heap, Put, String, Mailer =
  BEGIN


  Info: PROCEDURE [s: LONG STRING, level: Mailer.Level] =
    BEGIN
    copy: LONG STRING ¬ Heap.systemZone.NEW[StringBody[s.length+2]];
    String.AppendString[copy, s];
    Put.Line[NIL, copy];
    Heap.systemZone.FREE[@copy];
    END;

  [] ¬ Mailer.SendGVMail[
    subject: "Testing..."L,
    to: "Murray.PA"L,
    cc: "Murray.PA, Murray.PA"L,
    body: "This is the body of the message.\n"L,
    troubles: "Murray.PA"L,
    info: Info];

  END.