X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=WL-ELS;h=4a0d9ca5a35effc34992be9fde6408d578dedaa7;hb=98f38e5383840a86e4ebca5803d505110d0997f8;hp=8d31d2ef91cae72fec331931cdbdf98b81b6edcc;hpb=8b003dd16e3d4a1f0d29b5fcd0f57a2ee294f967;p=elisp%2Fwanderlust.git diff --git a/WL-ELS b/WL-ELS index 8d31d2e..4a0d9ca 100644 --- a/WL-ELS +++ b/WL-ELS @@ -8,20 +8,20 @@ ;;; generic modules (defconst WL-MODULES '( wl wl-folder wl-summary wl-message - wl-vars wl-draft wl-util wl-version wl-address + 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-fldmgr wl-expire wl-template wl-score wl-acap )) (defconst ELMO-MODULES '( - utf7 pldap mmimap + 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-dop elmo-nmz + elmo-internal elmo-mark elmo-sendlog + elmo-dop elmo-nmz elmo-split )) @@ -32,8 +32,6 @@ ((featurep 'xemacs) (setq WL-MODULES (append WL-MODULES (list 'wl-dnd 'wl-xmas))) (setq ELMO-MODULES (append (list 'elmo-database) ELMO-MODULES))) - ((fboundp 'nemacs-version) - (setq WL-MODULES (append WL-MODULES (list 'wl-nemacs)))) ((and (boundp 'emacs-major-version) (>= emacs-major-version 21)) (setq WL-MODULES (append WL-MODULES (list 'wl-e21)))) ((featurep 'mule) @@ -44,35 +42,24 @@ )) (if (or (fboundp 'dynamic-link) - ;; static - (fboundp 'open-database)) + ;; static + (fboundp 'open-database)) (add-to-list 'ELMO-MODULES 'elmo-database)) (if (module-installed-p 'shimbun) (add-to-list 'ELMO-MODULES 'elmo-shimbun)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; tm-8 / SEMI - -(if (module-installed-p 'mime-view) - (progn - (defconst wl-use-semi t) - (setq WL-MODULES (append WL-MODULES (list 'wl-mime))) - (setq ELMO-MODULES (append ELMO-MODULES (list 'elmo-mime)))) - (defconst wl-use-semi nil) - (setq WL-MODULES (append WL-MODULES (list 'tm-wl)))) +;;; 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)) - (if wl-use-semi - (error "Use FLIM-1.13.2 or later and SEMI 1.13.7 or later.") - (if (module-installed-p 'product) - (error "Use tm-8.x with APEL 10.2 or later.") - ;; tm but luna is not installed (tm7?) - (error "Use tm-8.x.")))) + (error "Use new FLIM & SEMI. See INSTALL or INSTALL.ja")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Utils -(defvar UTILS-MODULES '(rfc2368 wl-mailto)) +(defvar UTILS-MODULES '(rfc2368 wl-mailto wl-addrbook wl-complete)) ;; OpenSSL/SSLeay package is also needed. (if (module-installed-p 'base64)