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

   1 ;;; mew-unix.el -- MIME content type for UNIX
   2
   3 ;; Author:  Kazu Yamamoto <Kazu@Mew.org>
   4 ;; Created: Dec  4, 1997
   5 ;; Revised: Aug 30, 1999
   6
   7 ;;; Code:
   8
   9 (defconst mew-unix-version "mew-unix.el version 0.03")
  10
  11 ;;
  12 ;;
  13 ;;
  14
  15 (defvar mew-prog-plain    '(mew-mime-text/plain    () nil))
  16 (defvar mew-prog-html     '(mew-mime-text/html     () nil))
  17 (defvar mew-prog-enriched '(mew-mime-text/enriched () nil))
  18 (defvar mew-prog-text     '(mew-mime-text/plain    () nil))
  19 (defvar mew-prog-audio
  20   (list mew-prog-shell (list mew-prog-shell-arg "cat - > /dev/audio") nil))
  21 (defvar mew-prog-audio2
  22   (list mew-prog-shell (list mew-prog-shell-arg "cat < /dev/audio") nil))
  23 (defvar mew-prog-gif (if (and window-system mew-xemacs-p
  24                               (valid-image-instantiator-format-p 'gif))
  25                          '(mew-mime-image/gif () nil)
  26                        '("xv" ("-geometry" "+0+0") t)))
  27 (defvar mew-prog-tiff (if (and window-system mew-xemacs-p
  28                                (valid-image-instantiator-format-p 'tiff));;xxx
  29                           '(mew-mime-image/tiff () nil)
  30                         '("xv" ("-geometry" "+0+0") t)))
  31 (defvar mew-prog-jpeg (if (and window-system mew-xemacs-p
  32                               (valid-image-instantiator-format-p 'jpeg))
  33                           '(mew-mime-image/jpeg () nil)
  34                         '("xv" ("-geometry" "+0+0") t)))
  35 (defvar mew-prog-xwd '("xv" ("-geometry" "+0+0") t))
  36 (defvar mew-prog-xbm (if (and window-system mew-xemacs-p
  37                               (valid-image-instantiator-format-p 'xbm))
  38                          '(mew-mime-image/xbm () nil)
  39                        '("xv" ("-geometry" "+0+0") t)))
  40 (defvar mew-prog-xpm (if (and window-system mew-xemacs-p
  41                               (valid-image-instantiator-format-p 'xpm))
  42                          '(mew-mime-image/xpm () nil)
  43                        '("xv" ("-geometry" "+0+0") t)))
  44 (defvar mew-prog-png (if (and window-system mew-xemacs-p
  45                               (valid-image-instantiator-format-p 'png))
  46                          '(mew-mime-image/png () nil)
  47                        '("xv" ("-geometry" "+0+0") t)))
  48 (defvar mew-prog-bmp '("xv" ("-geometry" "+0+0") t))
  49 (defvar mew-prog-image '("xv" ("-geometry" "+0+0") t))
  50 (defvar mew-prog-mpeg '("mpeg_play" () t))
  51 (defvar mew-prog-rfc822 '(mew-mime-message/rfc822 () nil))
  52 (defvar mew-prog-external-body '(mew-mime-external-body () nil))
  53 (defvar mew-prog-delivery-status '(mew-mime-text/plain () nil))
  54 (defvar mew-prog-postscript '("ghostview" ("-geometry" "+0+0") t))
  55 (defvar mew-prog-pdf '("acroread" ("-geometry" "+0+0") t))
  56 (defvar mew-prog-pgp-keys '(mew-mime-pgp-keys () nil))
  57 (defvar mew-prog-octet-stream '(mew-mime-application/octet-stream () nil))
  58
  59 (provide 'mew-unix)
  60
  61 ;;; Copyright Notice:
  62
  63 ;; Copyright (C) 1996, 1997, 1998, 1999 Mew developing team.
  64 ;; All rights reserved.
  65
  66 ;; Redistribution and use in source and binary forms, with or without
  67 ;; modification, are permitted provided that the following conditions
  68 ;; are met:
  69 ;;
  70 ;; 1. Redistributions of source code must retain the above copyright
  71 ;;    notice, this list of conditions and the following disclaimer.
  72 ;; 2. Redistributions in binary form must reproduce the above copyright
  73 ;;    notice, this list of conditions and the following disclaimer in the
  74 ;;    documentation and/or other materials provided with the distribution.
  75 ;; 3. Neither the name of the team nor the names of its contributors
  76 ;;    may be used to endorse or promote products derived from this software
  77 ;;    without specific prior written permission.
  78 ;;
  79 ;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS'' AND
  80 ;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  81 ;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  82 ;; PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE TEAM OR CONTRIBUTORS BE
  83 ;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  84 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  85 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  86 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  87 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  88 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
  89 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  90
  91 ;;; mew-unix.el ends here