(setq mail-archive-file-name "~/rmail/outgoing")

;;; fix rmail so reply just goes to sender by default.

(require 'rmail)

(defun rmail-reply-just-sender ()
  (interactive)
    (rmail-reply t))

(defun rmail-reply-all ()
  (interactive)
  (rmail-reply nil))


;;; have rmail stop making backup files

(setq rmail-mode-hook '(lambda ()
			(make-local-variable 'make-backup-files)
			(setq make-backup-files nil))) 

(define-key rmail-mode-map "r" 'rmail-reply-just-sender)
(define-key rmail-mode-map "R" 'rmail-reply-all)