 ;;; HTML stuff
 ;;;
 
-(setq html-helper-do-write-file-hooks t)
+(setq html-helper-do-write-file-hooks nil)
 (setq html-helper-build-new-buffer t)
 
-(setq my-html-domain "theStarport.org")
+(setq my-html-domain "savitzky.net")
 (setq my-html-home-site
       (concat "http://"
-	      (user-real-login-name) ".savitzky.net/" )
+	      (user-real-login-name) "." my-html-domain)
       )
 
 (setq html-helper-address-string

;;; Gnu Emacs Initialization File -- Steve Savitzky

(setq my-home-emacs-dir (concat (getenv "HOME") "/emacs"))
(if (file-exists-p my-home-emacs-dir)
    (setq load-path (cons my-home-emacs-dir load-path))
  (setq my-home-emacs-dir nil))

       ;; ss-browse-hacks, ss-key-hacks haven't been used for years
       (autoload 'ss-gnus-hacks "ss-gnus-hacks" "hacks for gnus" t)
       (autoload 'ss-dired-hacks "ss-dired-hacks" "hacks for dired" t)
       (add-hook 'dired-mode-hook 'ss-dired-hacks)
       
       ))

(setq ljupdir (concat my-home-emacs-dir "/ljupdate"))
(if (file-exists-p ljupdir)
