🚀 go-pugleaf

This is what I'm using for emacs-18.55, -59, epoch-4.2 and lemacs-19.3:

(cond 
  ;; Emacs 18.55 ?
  ((not (eq (string-match "^18.55" emacs-version) nil))
   (setq load-path (append (list
                    (expand-file-name "~/emacs")
                    (expand-file-name "/sun4_dh4/joost/GNU/emacs-18.57/local"))
                           load-path))
   (emacs-18-55-setup)
   (common-setup)
   )
  ;; Emacs 18.58 ?
  ((not (eq (string-match "^18.58" emacs-version) nil))
   (setq load-path (append (list
                    (expand-file-name "~/emacs")
                    "/sun4_dh4/joost/GNU/emacs-18.57/local")
;;                    (expand-file-name "../local" exec-directory))
                           load-path))
   (setq exec-path (append exec-path (list "/usr/local/emacs/etc")))
   (emacs-18-58-setup)
   (common-setup)
   )
  ((not (eq (string-match "^18.59" emacs-version) nil))
   (setq load-path (append (list
                    (expand-file-name "~/emacs")
                    "/sun4_dh4/joost/GNU/emacs-18.59/local"
                    "/sun4_dh4/joost/GNU/emacs-18.59/lisp")
;;                    (expand-file-name "../local" exec-directory))
                           load-path))
   (setq exec-path (append exec-path (list "/usr/local/emacs/etc")))
   (emacs-18-58-setup)
   (common-setup)
   )
  ;; Epoch-4.0
  ((and (boundp 'epoch::version)
        (not (eq (string-match "^Epoch 4.[0-9]" epoch::version) nil)))
   (setq load-path (append (list 
                    (expand-file-name "~/emacs")
                    "/sun4_dh4/joost/GNU/emacs-18.59/local"
                    "/sun4_fw2/joost/epoch-4.2/epoch-lisp"
                    "/sun4_fw2/joost/epoch-4.2/lisp")
                           load-path))
   (setq exec-path (append exec-path (list "/usr/local/emacs/etc")))
   
   (epoch-4-0-setup)
   (common-setup)
   )
  ;; Lucid Emacs 19.X
  ((and (eq window-system 'x)
         (not (eq (string-match "^19.[0-9.]+ Lucid" emacs-version) nil)))
   (setq load-path (append load-path 
                           (list
                            (expand-file-name "~/emacs")
                            (expand-file-name "~/emacs/lucid")
                            (expand-file-name "/sun4_dh4/joost/GNU/emacs-18.57/local")
                            ))) ;; use lemacs libs first !!!
   (lucid-setup)
   (common-setup)
   )
)

All setups for packages like mail/VM and GNUS are moved into own functions,
which are now called in common-setup(). As a few 'beasts of my emacs zoo' are
still in 'quarantine', I explicitly set the load-path for them.

> will be very nice once I get a couple things ironed out. One thing
> though... we really do need a multi-threaded Emacs, so that I can read
> news and mail and work without having annoying things like network I/O
                                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> to the NNTP server hang me out to dry. Is this planned for 19?

Yeah, that would really be nice !

Michael
--
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Michael Joosten   |       Tel.  : (+49) (+) 5251-284 120                 |
| CADLAB            |       Fax   : (+49) (+) 5251-284 140                 |
| Bahnhofstr. 32    |       E-Mail: joost@cadlab.de                        |
| D-4790 Paderborn  |        	    ...!uunet!unido!cadlab!joost           | 
| FRG               | Mass mail to: joost@pbinfo.uni-paderborn.de          |
|--------------------------------------------------------------------------|
| CADLAB is a cooperation between Uni-GH Paderborn & SNI AG                |
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~