(FILECREATED " 2-Aug-84 09:23:24" {ERIS}<LISPCORE>DEMO>LAFITENULLMODE.;5
 1364   

      changes to:  (VARS LAFITENULLMODECOMS LAFITEMODELST)
		   (FNS \NULL.AUTHENTICATE.USER NULL.MAKEANSWERFORM)

      previous date: "31-Jul-84 23:07:33" {ERIS}<LISPCORE>DEMO>LAFITENULLMODE.;3)


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT LAFITENULLMODECOMS)

(RPAQQ LAFITENULLMODECOMS
 ((FNS \NULL.SEND.PARSE \NULL.SENDMESSAGE \NULL.AUTHENTICATE.USER)
			   (ALISTS (LAFITEMODELST NULL))))
(DEFINEQ

(\NULL.SEND.PARSE

  [LAMBDA NIL                                                (* edited: "30-Jul-84 22:07")

    T])

(\NULL.SENDMESSAGE

  [LAMBDA NIL                                                (* edited: "30-Jul-84 22:07")

    1])

(\NULL.AUTHENTICATE.USER

  [LAMBDA NIL                                                (* edited: " 1-Aug-84 19:05")

    (SETQ \LAFITEUSERDATA (if
 (GETD (QUOTE \LAFITE.GETNEWMAIL))
			      then
                           (* new format)

				   (QUOTE ("Poduska.pasa" "Poduska.pasa" NIL "Poduska.pasa"
							  ((NILL)
							   NIL NIL NIL)))
			    else
 (QUOTE ("Poduska.pasa" "Poduska.pasa" NIL ((NILL)
							 NIL NIL NIL])
)

(ADDTOVAR LAFITEMODELST
 (NULL \NULL.SEND.PARSE \NULL.SENDMESSAGE GV.MAKEANSWERFORM 
			      \NULL.AUTHENTICATE.USER))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (505 1218 (\NULL.SEND.PARSE 515 . 639) (\NULL.SENDMESSAGE 641 . 766) (
\NULL.AUTHENTICATE.USER 768 . 1216)))))
STOP