; -*- Mode:LISP; Package:ZWEI; Base:10; Readtable:CL -*-
;;; Lisp Machine mail reader
;;; Compiled flavor methods and initializations only
; ** (c) Copyright 1980 Massachusetts Institute of Technology **

(COMPILE-FLAVOR-METHODS CLICK-REMEMBERING-POP-UP-MENU FILTER-SELECTION-FRAME
			POP-UP-ZMAIL-MULTIPLE-MENU
			ZMAIL-UTILITY-FRAME
			UNIVERSE-DEFINITION-FRAME ZMAIL-FILTER-FRAME ZMAIL-PROFILE-FRAME
			ZMAIL-FRAME
			ZMAIL-COMMAND-MENU-PANE
			ZMAIL-DYNAMIC-MOMENTARY-COMMAND-MENU
			ZMAIL-MAIN-COMMAND-MENU-PANE ZMAIL-MOMENTARY-COMMAND-MENU
			ZMAIL-MOMENTARY-MENU ZMAIL-MOUSE-SENSITIVE-MODE-LINE-PANE
			ZMAIL-OVERLYING-WINDOW  ZMAIL-SUMMARY-SCROLL-WINDOW
			ZMAIL-SUMMARY-TYPEOUT-WINDOW ZMAIL-TYPEOUT-WINDOW ZMAIL-WINDOW
			ZMAIL-CHOOSE-VARIABLE-VALUES-PANE ZMAIL-COMMAND-MENU-PANE
			)

(COMPILE-FLAVOR-METHODS ITS-MAIL-FILE-MIXIN ITS-INBOX-BUFFER
			BABYL-MAIL-FILE-BUFFER RMAIL-FILE-BUFFER
			TENEX-MAIL-FILE-MIXIN TENEX-INBOX-BUFFER TENEX-MAIL-FILE-BUFFER
			UNIX-MAIL-FILE-MIXIN UNIX-INBOX-BUFFER UNIX-MAIL-FILE-BUFFER
			TEXT-MAIL-FILE-BUFFER TEMP-ZMAIL-BUFFER
			VMS-MAIL-FILE-BUFFER VMS-INBOX-BUFFER)

(COMPILE-FLAVOR-METHODS DRAFT-MSG ZMAIL-SENDING-INTERVAL ZMAIL-PROFILE-BUFFER)

(DEFWINDOW-RESOURCE ZMAIL-MOMENTARY-MENU ()
  :MAKE-WINDOW (ZMAIL-MOMENTARY-MENU)
  :REUSABLE-WHEN :DEEXPOSED)

(DEFWINDOW-RESOURCE ZMAIL-MOMENTARY-COMMAND-MENU ()
  :MAKE-WINDOW (ZMAIL-MOMENTARY-COMMAND-MENU)
  :REUSABLE-WHEN :DEEXPOSED)

(DEFWINDOW-RESOURCE POP-UP-ZMAIL-MULTIPLE-MENU ()
  :MAKE-WINDOW (POP-UP-ZMAIL-MULTIPLE-MENU)
  :REUSABLE-WHEN :DEEXPOSED)

(ADD-INITIALIZATION 'INITIALIZE-ZMAIL '(INITIALIZE-ZMAIL) '(:ONCE))