Re: mail signatures

[miller@cs.rochester.edu]

here's our solution: only gets inserted on transmit. Just put a user
property called SIGNATURE in your namespace object (user). Embedded
returns work fine, just quote them, so the namespace editor doesn't
think you're ending the entry.

;; -*- Mode: LISP; Syntax: common-lisp; Package: ZWEI; Base: 8; Patch-file: YES; -*-

;;;; some zmail patches
;; ...

(DEFTEMPLATE USER-TRANSMIT-TEMPLATE
  (:TYPE :TRANSMIT)
  ;;define all this stuff in the namespace.
  (:IF (SEND SI:*USER* :USER-GET :SIGNATURE) (:TEXT (SEND SI:*USER* :USER-GET :SIGNATURE)))
  (:IF (SEND SI:*USER* :USER-GET :RETURN-ADDRESS) (:HEADER-FIELD :SENDER (SEND SI:*USER* :USER-GET :RETURN-ADDRESS)))
  (:IF (SEND SI:*USER* :USER-GET :RETURN-ADDRESS) (:HEADER-FIELD :REPLY-TO (SEND SI:*USER* :USER-GET :RETURN-ADDRESS)))
;  (:HEADER-FIELD :ORGANIZATION (SI:GET-SITE-OPTION :PRETTY-NAME))
  )

Hack, hack