;;; -*- Mode:Common-Lisp; Package:USER; Base:10 -*-

;;; **********************************************************************
;;; Copyright (c) 1990 Stanford University.
;;; This code was written by James Rice.
;;; Copyright is held by Stanford University except where code has been
;;; modified from TI source code.  In these cases TI code is marked with
;;; a suitable comment.

;;; All Stanford Copyright code is in the public domain.  This code may be
;;; distributed and used without restriction as long as this copyright
;;; notice is included and no fee is charged.  This can be thought of as
;;; being equivalent to the Free Software Foundation's Copyleft policy.

;;; TI source code may only be distributed to users who hold valid TI
;;; software licenses.

;;; The development of this software was assisted by the following grants:
;;; Biomedical Research Technology Program of the National Institutes
;;; of Health under grant RR-00785
;;; Information Systems Technologies office of the Defense Advanced
;;; Research Projects Agency under contract N00039-86-C0033.

;;; **********************************************************************

;;; The package in which all of the imap client code resides.
(eval-when (compile load eval)
  (Defpackage IMAP
    (:Use TICL Lisp)
  )
)

;;; Do these imports so that sectionising works ok in zwei and tv.
(eval-when (compile load eval)
  (import (list (read-from-string "yw:defadvise")) 'imap)
)


(eval-when (compile load eval)
  (import (list (read-from-string "yw:defadvise")) 'imap)
)


;;; Make sure that the profile stuff works ok in YW.
(eval-when (compile load eval)
  (import 'profile:defprofile 'imap)
  (import 'profile:defprofile-class 'imap)
)


(eval-when (compile load eval)
  (Defpackage IMAP-Tags)
)