(setq default-major-mode 'text-mode)
(setq text-mode-hook 'turn-on-auto-fill)
(setq fill-column 79)
(setq
 load-path (append
            load-path
            (list "/afs/athena.mit.edu/contrib/pgp/elisp")))
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'mail-mode-hook 'mc-install-write-mode)
(add-hook 'rmail-mode-hook 'mc-install-read-mode)
(add-hook 'rmail-summary-mode-hook 'mc-install-read-mode)
(add-hook 'mh-folder-mode-hook 'mc-install-read-mode)
(add-hook 'mh-letter-mode-hook 'mc-install-write-mode)
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(add-hook 'news-reply-mode-hook 'mc-install-write-mode)
(add-hook 'discuss-trn-hooks 'mc-install-read-mode)
(add-hook 'discuss-edit-mode-hook 'mc-install-write-mode)
(add-hook 'message-setup-hook 'mc-install-write-mode)
