;;
;; $Id: site-specific.el,v 1.7 1995/12/02 08:18:01 qjb Exp $
;; $Source: /home/qjb/elisp/q/RCS/site-specific.el,v $
;; $Author: qjb $
;;
;; This file handles site-specific initialization.
;;

(defun q-site-init ()
  (let ((site (getenv "SITE")) site-suffix)
    (setq site-suffix (if site (concat "-" site) "")
	  rmail-file-name (concat (expand-file-name "~/rmail/inbox")
				  site-suffix)
	  site-el-file (concat (expand-file-name "~/elisp/q/site")
			       site-suffix)
	  )

    (if (file-exists-p (concat site-el-file ".el"))
	(load site-el-file))
    ))