semi-setup.el

   1 ;;; semi-setup.el --- setup file for MIME-View.
   2
   3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
   4
   5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   6 ;; Version: $Id: semi-setup.el,v 0.11 1997-03-10 13:42:02 morioka Exp $
   7 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
   8
   9 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
  10
  11 ;; This program is free software; you can redistribute it and/or
  12 ;; modify it under the terms of the GNU General Public License as
  13 ;; published by the Free Software Foundation; either version 2, or (at
  14 ;; your option) any later version.
  15
  16 ;; This program is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Code:
  27
  28 (require 'mime-def)
  29
  30
  31 ;;; @ for mime-view
  32 ;;;
  33
  34 (call-after-loaded
  35  'mime-view
  36  (function
  37   (lambda ()
  38     ;; for message/partial
  39     (require 'mime-partial)
  40     )))
  41
  42
  43 (defvar running-xemacs (string-match "XEmacs" emacs-version))
  44
  45 ;; for image/* and X-Face
  46 (defvar mime-setup-enable-inline-image
  47   (and window-system
  48        (or running-xemacs
  49            (and (featurep 'mule)(module-installed-p 'bitmap))
  50            ))
  51   "*If it is non-nil, semi-setup sets up to use mime-image.")
  52
  53 (if mime-setup-enable-inline-image
  54     (call-after-loaded 'mime-view
  55                        (function
  56                         (lambda ()
  57                           (require 'mime-image)
  58                           )))
  59   )
  60
  61
  62 (defvar mime-setup-enable-pgp
  63   (module-installed-p 'mailcrypt)
  64   "*If it is non-nil, semi-setup sets uf to use mime-pgp.")
  65
  66 ;; for PGP
  67 (if mime-setup-enable-pgp
  68     (call-after-loaded 'mime-view
  69                        (function
  70                         (lambda ()
  71                           (require 'mime-pgp)
  72                           )))
  73   )
  74
  75
  76 ;;; @ for mh-e
  77 ;;;
  78
  79 (defun semi-setup-load-emh ()
  80   (require 'emh)
  81   )
  82
  83 (call-after-loaded 'mh-e 'semi-setup-load-emh 'mh-folder-mode-hook)
  84 (or (featurep 'mh-e)
  85     (add-hook 'mh-letter-mode-hook 'semi-setup-load-emh)
  86     )
  87
  88
  89 ;;; @ for Gnus
  90 ;;;
  91
  92 (defun semi-setup-load-gnus ()
  93   (let (gnus-load-hook)
  94     (require 'gnus-mime)
  95     ))
  96
  97 (add-hook 'gnus-load-hook 'semi-setup-load-gnus)
  98
  99
 100 ;;; @ end
 101 ;;;
 102
 103 (provide 'semi-setup)
 104
 105 ;;; semi-setup.el ends here