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 mime-pgp mime-tnef 10 semi-def mime-view mime-play mime-partial 11 mime-edit mime-signature 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 '((w3 mime-w3) 29 (vcard mime-vcard) 30 (shr mime-shr) 31 )) 32 33(if (or (string-match "XEmacs" emacs-version) 34 (featurep 'mule)) 35 (setq semi-modules-to-compile 36 (nconc semi-modules-to-compile '(mime-image))) 37 ) 38 39(when (eq system-type 'darwin) 40 (setq semi-modules-to-compile 41 (nconc semi-modules-to-compile '(mime-mac)))) 42 43(setq semi-modules (append semi-modules-to-compile 44 semi-modules-not-to-compile)) 45 46;;; SEMI-ELS ends here 47