(if (equal (getenv "USER") "tower")
    (progn
      (if (fboundp `list-load-path-shadows)
	  (list-load-path-shadows))
;biff was here
      (compile-in-buffer
       "ls -l /dev/nit* bin/*log* ../*gnulists/*bin/*log*"
       nil "~")
      ))

(setq					; should have an emacs-startup-hook
 term-setup-hook			; after-init-hook set below for v19
 (function
  (lambda ()
    (progn
      (if (equal (getenv "USER") "tower")
	  (progn
					;the RMAIL buffer is coming up
					;on ~the 400th message, even with
	    (switch-if-bufferp "RMAIL")	;"emacs -q -f rmail" -- perhaps
					;it has to do with it being an
					;RMAIL buffer started under ver 18?
	    (rmail-last-message)	;would also like to go back to 
					;first new message
	    (if (file-exists-p "/com/ftp/pub/tower/")
		(dired "/com/ftp/pub/tower/")) ; to keep it clean ...
; gnu.ai machines are doing this properly again Jan 97:
; not happenning on nutrimat - mar95:
;;;;;;;	    (load-file-if-exists "/usr/local/lib/emacs/site-lisp/default.el")
; not on geech with emacs 18.59, oct96:
;;;;;;;	    (load-file-if-exists "/com/share/lib/elisp/default.el")
	    (load-library "picture")	; i use it often enough
	    (if (>= emacs-version-major 19)
		(progn
					; ispell isn't installed for emacs18
					; anymore at gnu.ai.mit.edu
		  (load-library "ispell") (ispell-init-process)
		  (load-library "dired-aux") ; use it often enough
		 )
	      )
	    (switch-if-bufferp
	     "*Messages*")(end-of-buffer)(next-line -1)(recenter -1)
	     (delete-other-windows)
	    (switch-if-bufferp
	     "*ls -l /dev/nit* bin/*log* ../*gnulists/*bin/*log**")
;	    (if (>= emacs-version-major 19)
;					; have here in hook, in case ftp fails
;		(progn
;		  (find-file "/anonymous@ftp.ucar.edu:http/pendulum/archive/"))
;	      (progn
;		(load-library "ftp")
;		(ftp-list-directory "ftp.ucar.edu" "/http/pendulum/archive/" 
;				    "anonymous" "-tower@prep.ai.mit.edu")
;		(switch-if-bufferp
;		 "ftp.ucar.edu:/http/pendulum/archive/ (ftp)")))
	    ))
      ))))

(setq after-init-hook term-setup-hook)
