(defun my-text-mode ()
"Same as standard gnu text-mode, but turns on auto-fill with 79-column
line length"
  (interactive)
  (text-mode)
  (af)
 (setq case-fold-search nil)  
        ; 15jun04 Note: I figured it out; there is only *temporarily* reset,
        ;               when you use an upper case char explicitly in the
        ;               search string.
        ; 14jun04 Note: For some fucked up reason, this keeps getting reset.
        ;               It's as if this init file is being re-executed at the
        ;               beginning of each search.
  (setq truncate-lines nil)
; This doesnt quite work as expected -- need to look into it:
;  (setq indent-line-function 'indent-relative)
  (setq mode-name "my-text")

  ; (set-line-spacing)  ; Turned off for now.  See comments in .emacs.

  (local-unset-key "s")
  (local-unset-key "S")
  (read-abbrev-file (concat HOME "/emacs/lib/text-mode-abbrev-table"))
  (global-set-key "	" 'self-insert-command)
)