(setq news-inews-program "/afs/sipb.mit.edu/project/sipb/bin/inews"
      gnus-default-nntp-server "news.mit.edu"
      gnus-local-domain "mit.edu"
      gnus-local-organization "Massachusetts Institute of Technology"
      mh-progs "/usr/athena/bin/"
      mh-lib "/usr/athena/etc/"
      manual-program (if (file-exists-p "/usr/athena/bin/man")
			 "/usr/athena/bin/man" "/usr/ucb/man"))

(autoload 'discuss "discuss" "Emacs Discuss" t)

(setq require-final-newline t
      inhibit-local-variables t
      rmail-primary-inbox-list '("~/mbox" "/usr/spool/mail/$USER" "po:$USER"))

(autoload 'report-emacs-bug "emacsbug"
	  "Report a bug in Gnu emacs."
	  t)

(setq bug-gnu-emacs "emacsdev@athena.mit.edu")

(autoload 'clu-mode "clu-mode"
	  "Load CLU mode."
	  t)

(setq auto-mode-alist (append auto-mode-alist '(("\\.clu$" . clu-mode))))

(autoload 'ispell-word "ispell"
	  "Check the spelling of a word in the buffer."
	  t)
(autoload 'ispell-region "ispell"
	  "Check the spelling of a region in the buffer."
	  t)
(autoload 'ispell-buffer "ispell"
	  "Check the spelling of the entire buffer."
	  t)

; Athena auto-save customizations

(defconst auto-save-main-directory
  "/usr/tmp/"
  "The root of the auto-save directory; nil means use old style.")

(defun make-auto-save-file-name ()
  "Return file name to use for auto-saves of current buffer.
Does not consider auto-save-visited-file-name; that is checked
before calling this function.
You can redefine this for customization.
See also auto-save-file-name-p."
  (if auto-save-main-directory
      (if buffer-file-name
	  (concat auto-save-main-directory
		  "#"
		  (user-real-uid)
		  "."
		  (auto-save-replace-slashes buffer-file-name)
		  "#")
	(concat auto-save-main-directory
		"#%"
		(user-real-uid)
		"."
		(auto-save-replace-slashes (buffer-name))
		"#"))
    (if buffer-file-name
	(concat (file-name-directory buffer-file-name)
		"#"
		(file-name-nondirectory buffer-file-name)
		"#")
      (expand-file-name (concat "#%" (buffer-name) "#")))))

(defun auto-save-replace-slashes (name)
  "Replace all slashes in NAME with bangs."
  (let ((pos 0) (len (length name)))
    (setq ourname (make-string len ? ))
    (while (< pos len)
      (if (= (aref name pos) ?/)
	  (aset ourname pos ?@)
	(aset ourname pos (aref name pos)))
      (setq pos (+ 1 pos)))
    ourname))

(setq ispell-program-name "/usr/athena/bin/ispell")