 ;;; Many html-helper-mode commands are useful in other modes
 (load "html-helper-mode" t)
 
+
+(if (file-exists-p "~/.abbrev_defs") (quietly-read-abbrev-file nil))
+
+(cond (my-home-emacs-dir
+       ;; 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"))
-;;        was "/local/share/emacs/site-lisp/ljupdate"
 (if (file-exists-p ljupdir)
     (progn (setq load-path (cons ljupdir load-path))
+	   (if (fboundp 'html-helper-mode)
+	       ;; we use html-helper-mode as a base for lj-update, and
+	       ;; don't use html-mode anyway.
+	       (defalias 'html-mode 'html-helper-mode))
 	   (require 'ljupdate)
 	   ;(setq lj-default-profile (lj-defprofile 'livejournal "mdlbear"))
 	   )

;;; lj-compose to compose; ^C-s to post


(if (file-exists-p "~/.abbrev_defs") (quietly-read-abbrev-file nil))

(cond (my-home-emacs-dir
       (load "ss-browse-hacks" t)
       (autoload 'ss-gnus-hacks (hack-file "ss-gnus") "hacks for gnus" t)
       (autoload 'ss-dired-hacks "ss-dired-hacks" "hacks for dired" t)
       (add-hook 'dired-mode-hook 'ss-dired-hacks)))


(or (fboundp 'gin-mode-on) (defun gin-mode-on () "no gin-mode: fake it"))

;;; Version-dependent loads and other setup
;;; obsoleted


(if (fboundp 'global-font-lock-mode) (global-font-lock-mode t))
(add-hook 'c-mode-hook 'turn-on-font-lock)

;;; Autoload the file ss-gnus-hacks for the real goodies

(and my-home-emacs-dir
     (add-hook 'gnus-startup-hook
	       'ss-gnus-hacks))

;;; Use default article sorting.
