SEMI-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: SEMI-ELS,v 1.1 1998-02-25 14:45:19 morioka Exp $
   4 ;;;
   5
   6 (setq semi-modules-to-compile
   7       '(signature
   8         mime-def
   9         eword-decode eword-encode
  10         mime-parse mime-view mime-text mime-play mime-partial mime-file
  11         mime-edit
  12         semi-setup mail-mime-setup))
  13
  14 (setq semi-modules-not-to-compile nil)
  15
  16 (mapcar (function
  17          (lambda (cell)
  18            (let ((c-module (car cell))
  19                  (i-modules (cdr cell))
  20                  )
  21              (if (module-installed-p c-module)
  22                  (setq semi-modules-to-compile
  23                        (nconc semi-modules-to-compile i-modules))
  24                (setq semi-modules-not-to-compile
  25                      (nconc semi-modules-not-to-compile i-modules))
  26                )
  27              )))
  28         '((mailcrypt    mime-pgp mime-mc)
  29           (bbdb         mime-bbdb)
  30           ))
  31
  32 (if (or (string-match "XEmacs" emacs-version)
  33         (featurep 'mule))
  34     (setq semi-modules-to-compile
  35           (nconc semi-modules-to-compile '(mime-image)))
  36   )
  37
  38 (setq semi-modules (append semi-modules-to-compile
  39                            semi-modules-not-to-compile))
  40
  41 ;;; SEMI-ELS ends here