;; Start Mutt in Emacs

;; Call with: emacs -l emacs-mutt.el <arguments for Mutt>

;; Force UTF-8 locale coding system in Emacs and UTF-8 locales for Mutt.
(setq locale-coding-system 'utf-8)
(when (not (string= (getenv "LC_CHARMAP") "UTF-8"))
  (setenv "LC_CTYPE" "C.UTF-8")
  (setenv "LC_CHARMAP" "UTF-8"))
(prefer-coding-system 'utf-8)

(when (not (fboundp 'gnuserv-start))
  (locate-library "gnuserv-compat")
  (load-library "gnuserv-compat"))
(gnuserv-start)

(defadvice term-handle-exit (after close-emacs)
  (smart-close))
(ad-activate 'term-handle-exit)

(set-buffer (apply 'make-term "Mutt" "mutt" nil command-line-args-left))
(setq command-line-args-left nil)
(term-mode)
(term-char-mode)
(switch-to-buffer "*Mutt*")

;; See thread:
;;   From: Vincent Lefevre <vincent+news@vinc17.org>
;;   Newsgroups: fr.comp.applications.emacs
;;   Subject: lancer Emacs avec un Mutt dedans en mode terminal
;;   Date: Thu, 9 Feb 2006 15:54:21 +0000 (UTC)
;;   Message-ID: <20060209154329$7828@prunille.vinc17.org>

;; $Id: emacs-mutt.el 127329 2020-05-06 13:55:16Z vinc17/zira $