#| -*-Scheme-*-
-$Id: edextra.scm,v 1.28 1999/01/28 04:01:02 cph Exp $
+$Id: edextra.scm,v 1.29 1999/09/11 03:26:06 cph Exp $
Copyright (c) 1992-1999 Massachusetts Institute of Technology
(set-variable! version-control true)
(set-variable! trim-versions-without-asking true)
+#|
+;; No longer needed.
(if (eq? 'UNIX microcode-id/operating-system)
(set-variable!
mail-header-function
(insert-string "Reply-to: " point)
(insert-string reply-to point)
(insert-newline point))))))))
+|#
(set-variable! select-buffer-not-found-hooks
(cons (lambda (name)