(add-hook
 'before-init-hook
 (lambda ()
   (tool-bar-mode)
   (menu-bar-mode)
   (global-font-lock-mode)
   (setq features (delete 'dbus features))
   (require 'dbus)
   ))

(add-hook
 'after-init-hook
 (lambda ()
   (let ((bogus-features
	  '(wid-edit
	    cus-edit
	    tramp-integration
	    esh-util
	    esh-module
	    em-unix
	    eudc
	    eudcb-mab
	    tramp-gvfs
	    tramp-adb
	    secrets
	    eudcb-bbdb
	    eudcb-ldap
	    tramp-archive
	    wid-browse
	    battery
	    f90
	    fortran
	    eudcb-macos-contacts)))
     (let ((bfs bogus-features))
       (while bfs
	 (setq features (delete (car bfs) features))
	 (setq bfs (cdr bfs)))))
   (require 'wid-edit)
   (require 'cus-edit)
   (require 'tramp-integration)
   (require 'esh-util)
   (require 'esh-module)
   (require 'em-unix)
   (require 'eudc)
   (require 'eudcb-mab)
   (require 'tramp-gvfs)
   (require 'tramp-adb)
   (require 'secrets)
   (require 'eudcb-bbdb)
   (require 'eudcb-ldap)
   (require 'tramp-archive)
   (require 'wid-browse)
   (require 'battery)
   (require 'f90)
   (require 'fortran)
   (require 'eudcb-macos-contacts)
   ))