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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
;;; WL-ELS -*-Emacs-Lisp-*-
;;;;;;;;;;;;;;;;;;;;; DO NOT EDIT THIS FILE ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;; INTERNAL USE ONLY ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; generic modules
(defconst WL-MODULES '(
wl wl-folder wl-summary wl-message
wl-vars wl-draft wl-util wl-version wl-address wl-addrmgr
wl-highlight wl-demo wl-refile wl-thread
wl-fldmgr wl-expire wl-template wl-score wl-acap
))
(defconst ELMO-MODULES '(
utf7 pldap acap slp mmimap
elmo-date elmo-util elmo-version elmo-vars elmo elmo-msgdb
elmo-net elmo-imap4 elmo-pop3 elmo-nntp
elmo-localdir elmo-localnews elmo-map elmo-maildir
elmo-multi elmo-filter
elmo-archive elmo-pipe elmo-cache
elmo-internal elmo-mark elmo-sendlog
elmo-dop elmo-nmz
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Emacsen
;; (< 20 emacs-major-version) && !(featurep 'mule)
(cond
((featurep 'xemacs)
(setq WL-MODULES (append WL-MODULES (list 'wl-dnd 'wl-xmas)))
(setq ELMO-MODULES (append (list 'elmo-database) ELMO-MODULES)))
((and (boundp 'emacs-major-version) (>= emacs-major-version 21))
(setq WL-MODULES (append WL-MODULES (list 'wl-e21))))
((featurep 'mule)
(setq WL-MODULES (append WL-MODULES (list 'wl-mule)))))
(defconst WL-AUTOLOAD-MODULES '(
auto-autoloads custom-load
))
(if (or (fboundp 'dynamic-link)
;; static
(fboundp 'open-database))
(add-to-list 'ELMO-MODULES 'elmo-database))
(if (module-installed-p 'shimbun)
(add-to-list 'ELMO-MODULES 'elmo-shimbun))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; SEMI
(setq WL-MODULES (append WL-MODULES (list 'wl-mime)))
(setq ELMO-MODULES (append ELMO-MODULES (list 'elmo-mime)))
(if (not (module-installed-p 'luna))
(error "Use new FLIM & SEMI. See INSTALL or INSTALL.ja"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Utils
(defvar UTILS-MODULES '(rfc2368 wl-mailto wl-addrbook wl-complete))
;; OpenSSL/SSLeay package is also needed.
(if (module-installed-p 'base64)
(add-to-list 'UTILS-MODULES 'ssl))
(defvar modules-alist
(list
(cons ELMODIR ELMO-MODULES)
(cons WLDIR WL-MODULES)
(if (module-installed-p 'bbdb)
(cons UTILSDIR (list 'bbdb-wl)))
(if (exec-installed-p "imput")
(cons UTILSDIR (list 'im-wl)))
(if wl-install-utils
(cons UTILSDIR UTILS-MODULES))))
|
