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