<> <> <> <> <> DIRECTORY SMTPDescr USING [Descr], Rope USING [ROPE]; SMTPGVSend: CEDAR DEFINITIONS = BEGIN Connection: TYPE = REF ConnectionRep; ConnectionRep: TYPE; totalGvMsgsSent: INT; totalGvBytesSent: INT; Open: PROC RETURNS [conn: Connection]; SendItem: PROC [descr: SMTPDescr.Descr, recipList: LIST OF Rope.ROPE, conn: Connection]; <> <> <> <> <> Failed: ERROR [withItem: WithItemAction, reason: Rope.ROPE, problemWithGV: BOOL]; WithItemAction: TYPE = {retryLater, putOnBadQueue, returnToSender}; END.