SEMI-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; SEMI-ELS: list of SEMI modules to install
   4
   5 ;;; Code:
   6
   7 (setq semi-modules-to-compile
   8       '(signature
   9         semi-def mime-view mime-play mime-partial mime-edit
  10         semi-setup mail-mime-setup))
  11
  12 (setq semi-modules-not-to-compile nil)
  13
  14 (mapcar (function
  15          (lambda (cell)
  16            (let ((c-module (car cell))
  17                  (i-modules (cdr cell))
  18                  )
  19              (if (module-installed-p c-module)
  20                  (setq semi-modules-to-compile
  21                        (nconc semi-modules-to-compile i-modules))
  22                (setq semi-modules-not-to-compile
  23                      (nconc semi-modules-not-to-compile i-modules))
  24                )
  25              )))
  26         '((mailcrypt    mime-pgp mime-mc)
  27           (bbdb         mime-bbdb)
  28           (w3           mime-w3)
  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