;;;; load the pedals if wanted
;;; Time-stamp: <2006-02-19 12:05:23 john>

(if (or (not (boundp 'my-pedals-systems))
	(null my-pedals-systems)
	(member (downcase (system-name))
		my-pedals-systems ; defined in /usr/home/jcgs/emacs/basics/host.el
		))
    (progn
      (add-lispdir "$COMMON/emacs/handsfree")	;; moving stuff out of here now
      (add-lispdir "$COMMON/open-projects/emacs-versor/lisp")
      (add-lispdir "$COMMON/open-projects/emacs-pedals")
      (message "Loading pedals, load-path=%S" load-path)
      (require 'info)
      ;; (require 'yank-menu) ; now set up in entry hook
      ;; (require 'dired) ; now done in hook
      ;; (require 'gud)
      ;; (require 'autocue) ; now set up in entry hook
      (if vm-host
	  (progn
	    ;; (require 'gnus) ; done in hook
	    (require 'setup-vm)
	    (require 'bbdb-vm)
	    ;; (require 'vm) ; now done in hook
	    ))
					;attempt;       (if vm-host
					;attempt; 	  (progn
					;attempt; 	    (require 'gnus)
					;attempt; 	    (require 'vm-autoload)
					;attempt; 	    (require 'bbdb-vm)
					;attempt; 	    (require 'vm)))
      ;; (if w3-host (require 'w3)) ; done in hook
      (require 'handsfree)
      )
  (message "Not a pedals system"))