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
|
;;; -*-Emacs-Lisp-*-
;; FLIM-ELS: list of FLIM modules to install
;;; Code:
(setq flim-modules '(std11
luna lunit mime-def
mel mel-q mel-u mel-g
eword-decode eword-encode
mime mime-parse mmgeneric
mmbuffer mmcooked mmexternal
mime-conf
sasl sasl-cram sasl-digest
md4 ntlm sasl-ntlm sasl-scram
smtp qmtp))
(setq flim-version-specific-modules nil)
(setq hmac-modules '(hex-util
hmac-def md5 sha1
hmac-md5 hmac-sha1))
(if (and (fboundp 'base64-encode-string)
(subrp (symbol-function 'base64-encode-string)))
nil
(if (fboundp 'dynamic-link)
(setq flim-modules (cons 'mel-b-dl flim-modules))))
(setq flim-modules (cons 'mel-b-el flim-modules))
(require 'pccl)
(unless-broken ccl-usable
(setq flim-modules (cons 'mel-b-ccl (cons 'mel-q-ccl flim-modules))))
(if (and (fboundp 'md5)
(subrp (symbol-function 'md5)))
nil
(if (fboundp 'dynamic-link)
(setq hmac-modules (cons 'md5-dl hmac-modules))
(setq hmac-modules (cons 'md5-el hmac-modules))))
(unless (and (fboundp 'sha1)
(or (and (fboundp 'secure-hash)
(subrp (symbol-function 'secure-hash)))
(subrp (symbol-function 'sha1))))
(when (fboundp 'dynamic-link)
(setq hmac-modules (cons 'sha1-dl hmac-modules)))
(setq hmac-modules (cons 'sha1-el hmac-modules)))
(setq flim-modules (nconc hmac-modules flim-modules))
;;; FLIM-ELS ends here
|
