;;; -*-Emacs-Lisp-*-

;; SEMI-ELS: list of SEMI modules to install

;;; Code:

(setq semi-modules-to-compile
      '(signature
	mime-pgp mime-tnef
	semi-def mime-view mime-play mime-partial
	mime-edit mime-signature
	semi-setup mail-mime-setup))

(setq semi-modules-not-to-compile nil)

(mapcar (function
	 (lambda (cell)
	   (let ((c-module (car cell))
		 (i-modules (cdr cell))
		 )
	     (if (module-installed-p c-module)
		 (setq semi-modules-to-compile
		       (nconc semi-modules-to-compile i-modules))
	       (setq semi-modules-not-to-compile
		     (nconc semi-modules-not-to-compile i-modules))
	       )
	     )))
	'((w3			mime-w3)
	  (bbdb-vcard-vcard21	mime-vcard)
	  (shr			mime-shr)
	  ))

(setq semi-modules-to-compile
      (nconc semi-modules-to-compile '(mime-image)))

(when (eq system-type 'darwin)
  (setq semi-modules-to-compile
	(nconc semi-modules-to-compile '(mime-mac))))

(setq semi-modules (append semi-modules-to-compile
			   semi-modules-not-to-compile))

;;; SEMI-ELS ends here
