Zmail HELP

["Kendall%ALAN.LAAC-AI.Dialnet.Symbolics.COM %ALAN.kahuna.DECNET.LOCKHEED.COM"@WARBUCKS.AI.SRI.COM]

Received: from MARVIN.LAAC-AI.Dialnet.Symbolics.COM by ALAN.LAAC-AI.Dialnet.Symbolics.COM via CHAOS with CHAOS-MAIL id 41155; Mon 25-Sep-89 17:21:07 PDT
Date: Mon, 25 Sep 89 17:20 PDT
From: Liz Kendall <Kendall@ALAN.LAAC-AI.Dialnet.Symbolics.COM>
Subject: Zmail HELP
To: symbolics@ALAN.LAAC-AI.Dialnet.Symbolics.COM, slug@ALAN.LAAC-AI.Dialnet.Symbolics.COM
Message-ID: <19890926002042.8.KENDALL@MARVIN.LAAC-AI.Dialnet.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTCB



I am trying to define new message types within ZMAIL.


I am stuck . . .  I used DEFTEMPLATE and DEFINE-HEADER-TYPE in the folowing manner,

but the header is not being transmitted.  


That is, it does not show up in the message after it has been transmitted.


What am I missing ??? 


Thanks


LIZ KENDALL

(805)295-4763




(DEFTEMPLATE JAM-Template
  (:TYPE :MAIL)
  (:NAME "Job Assignment Memo" FONTS:HL12B)
  (:DOCUMENTATION "Assign task to individual")
  (:READ-ONLY)
  (:AVAILABLE-FOR-COMMANDS :MAIL)
  (:HEADER-FIELD 1:TO0 (rt-make-string (mail-everything-menu :action-date "Enter completion date for task"
							   :reply-date "Enter date for reply"
							   :assigned-to "Choose individual assigned to the task"
							   :header "Identify JAM Header Information")))
  (:HEADER-FIELD 1:SUBJECT 0*rt-subject*)
  (:HEADER-FIELD 1:MAIL-TYPE0 "JAM") 
  (:HEADER-FIELD 1:ASSIGNED-TO 0(rt-make-string *rt-assigned-to*))
  (:HEADER-FIELD 1:DATE-TO-COMPLETE 0(time:parse-universal-time *rt-action-date*))
  (:HEADER-FIELD 1:MILESTONES 0"<<name and date for Milestone 1>><<name and date for Milestone 2>>")
  (:HEADER-FIELD 1:REQUIRES-REPLY-FROM 0(rt-make-string *rt-assigned-to*))
  (:HEADER-FIELD 1:REPLY-TYPE 0"ACKNOWLEDGEMENT")
  (:HEADER-FIELD 1:REPLY-DATE 0(time:parse-universal-time *rt-reply-date*))
  (:HEADER-FIELD 1:MESSAGE-REFERENCES 0*rt-message-references*)
  (:HEADER-FIELD 1:FILE-REFERENCES 0*rt-file-references*)
  (:HEADER-FIELD 1:KEYWORDS0 (rt-make-string *rt-keyword*))
  (:TEMPLATE USER-TEMPLATE)
  (:STARTING-POINT :HEADERS :TO)
  (:TEXT "
1Task description:0 <<A description of the task>>

1Rationale:0 <<Rationale for this breakdown and assignment>>
"))


(DEFINE-HEADER-TYPE :MAIL-TYPE "Mail Type" :FAT-STRING)
;
; Dates
;
(DEFINE-HEADER-TYPE :WHEN "When" :DATE)
(DEFINE-HEADER-TYPE :COMPLETION-DATE "Completion Date" :DATE)
(DEFINE-HEADER-TYPE :DATE-TO-COMPLETE "Date to Complete" :DATE)
(DEFINE-HEADER-TYPE :REPLY-DATE "Replay Date" :DATE)
;
; Recipients
;
(DEFINE-HEADER-TYPE :ASSIGNED-TO "Assigned to" :RECIPIENT)
(DEFINE-HEADER-TYPE :REQUIRES-REPLY-FROM "Requires Reply From" :RECIPIENT)
;
; Strings
;
(DEFINE-HEADER-TYPE :DECISION-TYPE "Decision Type" :FAT-STRING)
(DEFINE-HEADER-TYPE :MILESTONES "Milestones" :FAT-STRING)
(DEFINE-HEADER-TYPE :REPLY-TYPE "Reply Type" :FAT-STRING)
;
; References
;
(DEFINE-HEADER-TYPE :REPLY-TO-MESSAGE "Reply to Message" :REFERENCE)
(DEFINE-HEADER-TYPE :MESSAGE-REFERENCES "Message References" :REFERENCE)