(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)

(FILECREATED "18-Aug-88 13:40:23" {QV}<NOTECARDS>1.3LNEXT>RGPATCH088.;3
 2077   

      changes to%:  (FNS NC.SendNCStartedMessage)
                    (VARS RGPATCH088COMS)

      previous date%: "16-Aug-88 18:55:34" {QV}<NOTECARDS>1.3LNEXT>RGPATCH088.;1)


(* "
Copyright (c) 1988 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT RGPATCH088COMS)

(RPAQQ RGPATCH088COMS
 (
                       (* ;; "NEW for NOTECARDS")

                       (FNS NC.SendNCStartedMessage)
                       
                       (* ;; 
           "the following should probably be called approximately in the same places as NC.PostGreet")

                       (P (NC.SendNCStartedMessage))
                       (PROP (FILETYPE MAKEFILE-ENVIRONMENT)
                             RGPATCH088)))



(* ;; "NEW for NOTECARDS")


(DEFINEQ

(NC.SendNCStartedMessage

  [LAMBDA NIL                                         (* ; "Edited 18-Aug-88 13:39 by Randy.Gobbel")
    (if
 (AND (DEFINEDP 'LAFITEMODE)
             (DEFINEDP 'LAFITE.SENDMESSAGE))
        then
 (LAFITE.SENDMESSAGE (CONCAT "To: " (if
 (EQ (LAFITEMODE)
                                                        'GV)
                                                    then
 "NoteCardsSupport.pa"
                                                  else
 "NoteCardsSupport:PA:Xerox")
                                        "
Subject: NC (" NC.SystemDate ") Started
Format: Text

NoteCards of " NC.SystemDate "
started by " USERNAME ":" CH.DEFAULT.DOMAIN ":" CH.DEFAULT.ORGANIZATION " at " (DATE)
                                        "
"])
)



(* ;; "the following should probably be called approximately in the same places as NC.PostGreet")



(NC.SendNCStartedMessage
)

(PUTPROPS RGPATCH088
 FILETYPE
 :TCOMPL)

(PUTPROPS RGPATCH088
 MAKEFILE-ENVIRONMENT
 (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))
(PUTPROPS RGPATCH088 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (916 1710 (NC.SendNCStartedMessage 926 . 1708)))))
STOP