WL-ELS

   1 ;;; WL-ELS  -*-Emacs-Lisp-*-
   2 ;;; Time-stamp: <00/03/01 09:58:40 teranisi>
   3
   4 ;;;;;;;;;;;;;;;;;;;;;   DO NOT EDIT THIS FILE   ;;;;;;;;;;;;;;;;;;;;;
   5 ;;;;;;;;;;;;;;;;;;;;;     INTERNAL USE ONLY     ;;;;;;;;;;;;;;;;;;;;;
   6
   7
   8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   9 ;;; generic modules
  10 (defconst WL-MODULES '(
  11    wl wl-folder wl-summary wl-message
  12    wl-vars wl-draft wl-util wl-address
  13    wl-highlight wl-demo wl-refile wl-thread
  14    wl-fldmgr wl-expire wl-template wl-score
  15    ))
  16
  17 (defconst ELMO-MODULES '(
  18    elmo-util elmo-imap4 elmo-nntp elmo-archive
  19    elmo-localdir elmo-msgdb elmo-vars elmo2
  20    elmo-cache elmo-multi elmo-filter elmo-pipe
  21    elmo-dop elmo-pop3 elmo-localnews elmo-maildir
  22    elmo-date elmo-internal utf7
  23    ))
  24
  25 \f
  26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  27 ;;; Emacsen
  28 ;; (< 20 emacs-major-version) && !(featurep 'mule)
  29 (cond
  30  ((featurep 'xemacs)
  31   (setq WL-MODULES (append WL-MODULES (list 'wl-dnd 'wl-xmas)))
  32   (setq ELMO-MODULES (append (list 'elmo-database) ELMO-MODULES)))
  33  ((fboundp 'nemacs-version)
  34   (setq WL-MODULES (append WL-MODULES (list 'wl-nemacs))))
  35  ((featurep 'mule)
  36   (setq WL-MODULES (append WL-MODULES (list 'wl-mule)))))
  37
  38 (defconst WL-AUTOLOAD-MODULES '(
  39    auto-autoloads custom-load
  40    ))
  41
  42 (if (or (fboundp 'dynamic-link)
  43         ;; static
  44         (fboundp 'open-database))
  45     (add-to-list 'ELMO-MODULES 'elmo-database))
  46
  47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  48 ;;; tm-8 / SEMI
  49
  50 (if (module-installed-p 'mime-view)
  51     (progn
  52       (defconst wl-use-semi t)
  53       (setq WL-MODULES (append WL-MODULES (list 'wl-mime)))
  54       (setq ELMO-MODULES (append ELMO-MODULES (list 'mmelmo 'mmelmo-imap4))))
  55   (defconst wl-use-semi nil)
  56   (setq WL-MODULES (append WL-MODULES (list 'tm-wl)))
  57   )
  58
  59
  60 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  61 ;;; FLIM 1.12 / FLIM 1.13
  62 (cond
  63  ((module-installed-p 'luna)
  64   ;; FLIM 1.13 (SEMI/tm-8)
  65   (defconst wl-use-luna t)
  66   (setq ELMO-MODULES
  67         (append ELMO-MODULES
  68                 (list 'mmelmo-2
  69                       'mmelmo-imap4-2))))
  70  (wl-use-semi
  71   ;; FLIM 1.12
  72   (defconst wl-use-luna nil)
  73   (setq ELMO-MODULES
  74         (append ELMO-MODULES
  75                 (list 'mmelmo-1
  76                       'mmelmo-imap4-1))))
  77  )
  78
  79
  80 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  81 ;;; Utils
  82 (defvar UTILS-MODULES '(rfc2368 wl-mailto))
  83
  84 ;; OpenSSL/SSLeay package is also needed.
  85 (if (module-installed-p 'base64)
  86     (add-to-list 'UTILS-MODULES 'ssl))
  87
  88 (defconst SASL-MODULES '(hmac-def hmac-md5 hmac-sha1
  89                          hex-util md5-dl md5-el md5
  90                          sha1-dl sha1-el sha1 sasl
  91                          scram-md5 digest-md5 unique-id))
  92
  93 (defvar modules-alist
  94   (list
  95    (cons ELMODIR ELMO-MODULES)
  96    (cons WLDIR WL-MODULES)
  97    (if (module-installed-p 'bbdb)
  98        (cons UTILSDIR (list 'bbdb-wl)))
  99    (if (exec-installed-p "imput")
 100        (cons UTILSDIR (list 'im-wl)))
 101    (if wl-install-utils
 102        (cons UTILSDIR UTILS-MODULES))
 103    ;; sasl does not work under Nemacs.
 104    (if (and wl-install-sasl
 105             (not (fboundp 'nemacs-version)))
 106        (cons SASLDIR SASL-MODULES))
 107     ))