FLIM-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; FLIM-ELS: list of FLIM modules to install
   4
   5 ;;; Code:
   6
   7 (setq flim-modules '(std11
   8                      luna lunit mime-def
   9                      mel mel-q mel-u mel-g
  10                      eword-decode eword-encode
  11                      mime mime-parse mmgeneric
  12                      mmbuffer mmcooked mmexternal
  13                      mime-conf
  14                      unique-id scram-md5
  15                      sasl sasl-cram sasl-digest
  16                      md4 ntlm sasl-ntlm
  17                      smtp qmtp smtpmail))
  18
  19 (setq flim-version-specific-modules '(mailcap))
  20
  21 (setq hmac-modules '(hex-util
  22                      hmac-def md5 sha1
  23                      hmac-md5 hmac-sha1))
  24
  25 (if (and (fboundp 'base64-encode-string)
  26          (subrp (symbol-function 'base64-encode-string)))
  27     nil
  28   (if (fboundp 'dynamic-link)
  29       (setq flim-modules (cons 'mel-b-dl flim-modules)))
  30   (setq flim-modules (cons 'mel-b-el flim-modules)))
  31
  32 (require 'pccl)
  33 (unless-broken ccl-usable
  34   (setq flim-modules (cons 'mel-b-ccl (cons 'mel-q-ccl flim-modules))))
  35
  36 (if (and (fboundp 'md5)
  37          (subrp (symbol-function 'md5)))
  38     nil
  39   (if (fboundp 'dynamic-link)
  40       (setq hmac-modules (cons 'md5-dl hmac-modules))
  41     (setq hmac-modules (cons 'md5-el hmac-modules))))
  42
  43 (if (fboundp 'dynamic-link)
  44     (setq hmac-modules (cons 'sha1-dl hmac-modules))
  45   (setq hmac-modules (cons 'sha1-el hmac-modules)))
  46
  47 (setq flim-modules (nconc hmac-modules flim-modules))
  48
  49 ;;; FLIM-ELS ends here