(mime-edit-preview-message): Set up local variable

[elisp/semi.git] / SEMI-ELS

diff --git a/SEMI-ELS b/SEMI-ELS
index 098dbe8..aea7e99 100644 (file)
--- a/SEMI-ELS
+++ b/SEMI-ELS
@@ -1,50 +1,36 @@
 ;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: SEMI-ELS,v 0.0 1997-02-22 17:22:45 morioka Exp $
-;;;
+
+;; SEMI-ELS: list of SEMI modules to install
+
+;;; Code:
 
 (setq semi-modules-to-compile
       '(signature
-       mime-def
-       eword-decode eword-encode
-       mime-parse mime-view mime-text mime-play mime-partial
-       tm-latex tm-html tm-tar tm-file
-       mime-edit
-       semi-setup))
+       pgg-def pgg pgg-parse pgg-gpg pgg-pgp5 pgg-pgp mime-pgp
+       smime
+       semi-def mime-view mime-play mime-partial mime-edit
+       semi-setup mail-mime-setup))
 
 (setq semi-modules-not-to-compile nil)
 
 (mapcar (function
         (lambda (cell)
           (let ((c-module (car cell))
-                (i-modules (cdr cell))
-                )
+                (i-modules (cdr cell)))
             (if (module-installed-p c-module)
                 (setq semi-modules-to-compile
                       (nconc semi-modules-to-compile i-modules))
               (setq semi-modules-not-to-compile
-                    (nconc semi-modules-not-to-compile i-modules))
-              )
-            )))
-       '((ange-ftp     tm-ftp)
-         (mailcrypt    tm-pgp tm-edit-mc)
-         (bbdb         tm-bbdb)
-         ))
-
-(if (and (file-exists-p "tm-evs.el")
-        (or (boundp 'MULE)
-            (boundp 'NEMACS))
-        )
-    (setq semi-modules-to-compile (nconc semi-modules-to-compile '(tm-evs)))
-  )
+                    (nconc semi-modules-not-to-compile i-modules))))))
+       '((bbdb         mime-bbdb)
+         (w3           mime-w3)))
 
 (if (or (string-match "XEmacs" emacs-version)
        (featurep 'mule))
     (setq semi-modules-to-compile
-         (nconc semi-modules-to-compile '(mime-image)))
-  )
+         (nconc semi-modules-to-compile '(mime-image))))
 
-(setq tm-modules (append semi-modules-to-compile
-                        semi-modules-not-to-compile))
+(setq semi-modules (append semi-modules-to-compile
+                          semi-modules-not-to-compile))
 
 ;;; SEMI-ELS ends here