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         pgg-def pgg pgg-parse pgg-gpg pgg-pgp5 pgg-pgp mime-pgp
  10         smime
  11         semi-def mime-view mime-play mime-partial postpet
  12         mime-vcard
  13         mime-edit
  14         semi-setup mail-mime-setup))
  15
  16 (setq semi-modules-not-to-compile nil)
  17
  18 (mapcar (function
  19          (lambda (cell)
  20            (let ((c-module (car cell))
  21                  (i-modules (cdr cell))
  22                  )
  23              (if (module-installed-p c-module)
  24                  (setq semi-modules-to-compile
  25                        (nconc semi-modules-to-compile i-modules))
  26                (setq semi-modules-not-to-compile
  27                      (nconc semi-modules-not-to-compile i-modules))
  28                )
  29              )))
  30         '((bbdb         mime-bbdb)
  31           (w3           mime-w3)
  32           ))
  33
  34 (if (or (string-match "XEmacs" emacs-version)
  35         (featurep 'mule))
  36     (setq semi-modules-to-compile
  37           (nconc semi-modules-to-compile '(mime-image)))
  38   )
  39
  40 (setq semi-modules (append semi-modules-to-compile
  41                            semi-modules-not-to-compile))
  42
  43 ;;; SEMI-ELS ends here