;;; .emacs --- sample of ~/.emacs for MHC  -*-mode: emacs-lisp-*-

(when (and (featurep 'mule) (locate-library "mhc"))
  (if (fboundp 'mhc-select-mailer-package)
      (mhc-select-mailer-package 'mua))
  (setq mhc-use-wide-scope 14)
  (setq mhc-file-line-status-strings '(" Mhc" . " MHC"))
  (eval-after-load "mhc-draft"
    (quote
     (progn
       (defun my-mhc-draft-finish-and-exit ()
	 (interactive)
	 (let ((noninteractive t))
	   (mhc-draft-finish)))
       (define-key mhc-draft-mode-map "\C-c\C-z" 'my-mhc-draft-finish-and-exit))))
  ;;
  )

;;; .emacs ends here
