SEMI-ELS

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