WL-ELS

   1 ;;; WL-ELS  -*-Emacs-Lisp-*-
   2
   3 ;;;;;;;;;;;;;;;;;;;;;   DO NOT EDIT THIS FILE   ;;;;;;;;;;;;;;;;;;;;;
   4 ;;;;;;;;;;;;;;;;;;;;;     INTERNAL USE ONLY     ;;;;;;;;;;;;;;;;;;;;;
   5
   6
   7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   8 ;;; generic modules
   9 (defconst WL-MODULES '(
  10    wl wl-folder wl-summary wl-message
  11    wl-vars wl-draft wl-util wl-version wl-address
  12    wl-highlight wl-demo wl-refile wl-thread
  13    wl-fldmgr wl-expire wl-template wl-score
  14    ))
  15
  16 (defconst ELMO-MODULES '(
  17    utf7 pldap mmimap
  18    shimbun sb-text sb-asahi sb-mhonarc sb-mew sb-fml sb-bbdb-ml
  19    sb-xemacs sb-zdnet sb-sponichi sb-lump sb-wired sb-cnet
  20    sb-yomiuri sb-airs sb-netbsd sb-tcup
  21    elmo-date elmo-util elmo-version elmo-vars elmo elmo-msgdb
  22    elmo-net elmo-imap4 elmo-pop3 elmo-nntp
  23    elmo-localdir elmo-localnews elmo-map elmo-maildir
  24    elmo-multi elmo-filter
  25    elmo-archive elmo-pipe elmo-cache
  26    elmo-internal elmo-mark
  27    elmo-dop elmo-nmz elmo-shimbun
  28    ))
  29
  30 \f
  31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32 ;;; Emacsen
  33 ;; (< 20 emacs-major-version) && !(featurep 'mule)
  34 (cond
  35  ((featurep 'xemacs)
  36   (setq WL-MODULES (append WL-MODULES (list 'wl-dnd 'wl-xmas)))
  37   (setq ELMO-MODULES (append (list 'elmo-database) ELMO-MODULES)))
  38  ((fboundp 'nemacs-version)
  39   (setq WL-MODULES (append WL-MODULES (list 'wl-nemacs))))
  40  ((and (boundp 'emacs-major-version) (>= emacs-major-version 21))
  41   (setq WL-MODULES (append WL-MODULES (list 'wl-e21))))
  42  ((featurep 'mule)
  43   (setq WL-MODULES (append WL-MODULES (list 'wl-mule)))))
  44
  45 (defconst WL-AUTOLOAD-MODULES '(
  46    auto-autoloads custom-load
  47    ))
  48
  49 (if (or (fboundp 'dynamic-link)
  50         ;; static
  51         (fboundp 'open-database))
  52     (add-to-list 'ELMO-MODULES 'elmo-database))
  53
  54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  55 ;;; tm-8 / SEMI
  56
  57 (if (module-installed-p 'mime-view)
  58     (progn
  59       (defconst wl-use-semi t)
  60       (setq WL-MODULES (append WL-MODULES (list 'wl-mime)))
  61       (setq ELMO-MODULES (append ELMO-MODULES (list 'elmo-mime))))
  62   (defconst wl-use-semi nil)
  63   (setq WL-MODULES (append WL-MODULES (list 'tm-wl))))
  64
  65 (if (not (module-installed-p 'luna))
  66     (if wl-use-semi
  67         (error "Use FLIM-1.13.2 or later and SEMI 1.13.7 or later.")
  68       (if (module-installed-p 'product)
  69           (error "Use tm-8.x with APEL 10.2 or later.")
  70         ;; tm but luna is not installed (tm7?)
  71         (error "Use tm-8.x."))))
  72
  73 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  74 ;;; Utils
  75 (defvar UTILS-MODULES '(rfc2368 wl-mailto))
  76
  77 ;; OpenSSL/SSLeay package is also needed.
  78 (if (module-installed-p 'base64)
  79     (add-to-list 'UTILS-MODULES 'ssl))
  80
  81 (defvar modules-alist
  82   (list
  83    (cons ELMODIR ELMO-MODULES)
  84    (cons WLDIR WL-MODULES)
  85    (if (module-installed-p 'bbdb)
  86        (cons UTILSDIR (list 'bbdb-wl)))
  87    (if (exec-installed-p "imput")
  88        (cons UTILSDIR (list 'im-wl)))
  89    (if wl-install-utils
  90        (cons UTILSDIR UTILS-MODULES))))