DIRECTORYBasicTime USING [GMT],GVBasics USING [RName],PeanutParse USING [ParseStatus],Rope USING [ROPE],ViewerClasses USING [Viewer];PeanutRetrieve: CEDAR DEFINITIONS= BEGINRName: TYPE = GVBasics.RName;ROPE: TYPE = Rope.ROPE;MsgRec: TYPE = REF MessageRecObject;MessageRecObject: TYPE = RECORD[fullText: ROPE,  -- The text for sending, or what came from GrapevinedateCode: BasicTime.GMT, -- date in msggvSender: RName, -- The sender as given by GrapevinegvID: ROPE, -- Rope.Cat[gvSender, " $ ", gvTimeStamp]categories: LIST OF ROPE, -- categories & keywords, from prefixdate: ROPE, -- The date.inMsgSender: ROPE, -- non-NIL iff msg contains sender: fieldfrom: ROPE, -- The From: field  (may be freeform)to: LIST OF RName, -- The To: fieldsubject: ROPE, -- The subject.inReplyTo: ROPE, -- The In-Reply-To: field.cc: LIST OF RName, -- The cc: fieldreplyTo: ROPE, -- the ReplyTo: field  (may be freeform)unrecognized: LIST OF ROPE, -- Other header items.hasBeenRead: BOOL_ FALSE, -- has this message been displayed or notheadersText: ROPE, -- Just the headersbodyText: ROPE -- The body of the message without header lines.];OpenConnection: PROC[user: GVBasics.RName];CloseConnection: PROC;NewUser: PROC[user: GVBasics.RName];GetNewMsgs: PROC [open: BOOL _ TRUE];FindMailViewer: PROC[name: ROPE] RETURNS[ViewerClasses.Viewer];GetMailViewer: PROC [name: ROPE] RETURNS[ViewerClasses.Viewer];CopyMessages: PROC [to: ROPE, delete: BOOL];ParseMsgIntoFields: PROC[msg: MsgRec] RETURNS[s: PeanutParse.ParseStatus, sPos, mPos: INT];END.  Ü  PeanutRetrieve.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.March 4, 1983 10:54 amDoug Wyatt, March 7, 1985 11:26:18 am PSTThe following items are parsed out of the fullText:Operations for retrieving messages [PeanutRetrieveImpl]Establish a connection for this user.Establish a new user on this connection. Returns NIL if no viewer foundCreates a new viewer if none already thereOperations for parsing new messages [PeanutRetrieveParseImpl]ÊÑ  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ™K™)—K˜ šÏk	˜	Kšœ
žœžœ˜Kšœ	žœ	˜Kšœžœ˜ Kšœžœžœ˜Kšœžœ
˜—K˜ KšÐblœžœž˜!Kšœž˜K˜ Kšœžœ˜Kšžœžœžœ˜K˜ Kšœžœžœ˜$šœžœžœ˜ Kšœ
žœÏc4˜EKšœžœ ˜'Kšœ #˜4Kšœžœ )˜5Kšœžœžœžœ %˜?K˜ Kšœ3™3Kšœžœ ˜Kšœžœ )˜<Kšœžœ %˜1Kšœžœžœ ˜#Kšœ	žœ ˜Kšœžœ ˜+Kšœžœžœ ˜#Kšœ	žœ (˜7Kšœžœžœžœ ˜2Kšœžœžœ )˜CKšœžœ ˜&Kšœ
žœ 0˜?K˜K˜ —K˜ Kšœ7™7K˜ šÏnœžœ˜+Kšœ%™%K˜ —Kš¡œžœ˜K˜ š¡œžœ˜$Kšœ)™)K˜ —Kš¡
œžœžœžœ˜%K˜ š¡œžœžœžœ˜?Kšœ™—K˜ š¡œžœžœžœ˜?K™*—K˜ Kš¡œžœžœ
žœ˜,K˜ Kšœ=™=K˜ š¡œžœžœ)žœ˜[K˜ —Kšžœ˜— …—    ,  
Ù  