1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
;;; -*-Emacs-Lisp-*-
;; SEMI-ELS: list of SEMI modules to install
;;; Code:
(setq semi-modules-to-compile
'(signature
mime-pgp
semi-def mime-view mime-play mime-partial postpet
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))
)
)))
'((bbdb mime-bbdb)
(w3 mime-w3)
(vcard mime-vcard)
(shr mime-shr)
))
(if (or (string-match "XEmacs" emacs-version)
(featurep 'mule))
(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
|