(global-set-key "\e " 'set-mark-command)
(global-set-key "\C-x\C-k" 'compile)
(global-set-key [delete] 'delete-backward-char)
(global-set-key [end] 'end-of-line)
(global-set-key [C-down-mouse-1] 'mouse-set-font)    ;; change font
(global-set-key [home] 'beginning-of-line)
(global-set-key [kp-7] 'end-of-line)

(global-font-lock-mode t)
 (setq font-lock-maximum-decoration t)


(setq suggest-key-bindings 0.1)
 
(defvar *mail-directory*          "~/Mail")
(defvar *mail-rmail-buffer-name*  "rmail")

(setq mail-archive-file-name (concat *mail-directory* "Sent"))

(setq rmail-default-rmail-file (concat *mail-directory* "Received"))


(put 'downcase-region 'disabled nil)