cgit.sxemacs.org Git - packages/blob - xemacs-packages/mew/mew/mew-temacs.el

   1 ;;; mew-temacs.el --- Environment of Text Emacs for Mew
   2
   3 ;; Author:  Kazu Yamamoto <Kazu@Mew.org>
   4 ;; Created: Oct 13, 1997
   5 ;; Revised: Aug 30, 1999
   6
   7 ;;; Code:
   8
   9 (defconst mew-temacs-version "mew-temacs.el version 0.04")
  10
  11 (defvar mew-icon-separate-spec nil)
  12 (defvar mew-icon-blank nil)
  13 (defvar mew-icon-audio nil)
  14 (defvar mew-icon-image nil)
  15 (defvar mew-icon-video nil)
  16 (defvar mew-icon-application/postscript nil)
  17 (defvar mew-icon-application/octet-stream nil)
  18 (defvar mew-icon-message/rfc822 nil)
  19 (defvar mew-icon-message/external-body nil)
  20 (defvar mew-icon-text nil)
  21 (defvar mew-icon-multipart nil)
  22 (defvar mew-icon-unknown nil)
  23
  24 (defmacro mew-summary-toolbar-update () nil)
  25 (defmacro mew-draft-toolbar-update () nil)
  26
  27 (defmacro mew-message-set-end-of-message ()
  28   '(mew-overlay-put mew-message-overlay
  29                     'before-string
  30                     mew-end-of-message-string))
  31
  32 (defmacro mew-message-set-end-of-part ()
  33   '(mew-overlay-put mew-message-overlay
  34                     'before-string
  35                     mew-end-of-part-string))
  36
  37 (defmacro mew-message-set-end-of-nil ()
  38   '(mew-overlay-put mew-message-overlay 'before-string nil))
  39
  40 (provide 'mew-temacs)
  41
  42 ;;; Copyright Notice:
  43
  44 ;; Copyright (C) 1997, 1998, 1999 Mew developing team.
  45 ;; All rights reserved.
  46
  47 ;; Redistribution and use in source and binary forms, with or without
  48 ;; modification, are permitted provided that the following conditions
  49 ;; are met:
  50 ;;
  51 ;; 1. Redistributions of source code must retain the above copyright
  52 ;;    notice, this list of conditions and the following disclaimer.
  53 ;; 2. Redistributions in binary form must reproduce the above copyright
  54 ;;    notice, this list of conditions and the following disclaimer in the
  55 ;;    documentation and/or other materials provided with the distribution.
  56 ;; 3. Neither the name of the team nor the names of its contributors
  57 ;;    may be used to endorse or promote products derived from this software
  58 ;;    without specific prior written permission.
  59 ;;
  60 ;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS'' AND
  61 ;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  62 ;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  63 ;; PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE TEAM OR CONTRIBUTORS BE
  64 ;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  65 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  66 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  67 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  68 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  69 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
  70 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  71
  72 ;;; mew-temacs.el ends here