2 ;;; $Id: tm-mh-e3.el,v 3.0 1995/06/11 13:25:56 morioka Exp $
4 ;;; This is a part of tm-mh-e.el which is a module for old mh-e
5 ;;; to emulate mh-e 4.0.
7 ;;; This module imports from mh-e 3.8 and 4.0.
12 ;;; Ensure new buffers won't get this mode if default-major-mode is nil.
13 (put 'mh-show-mode 'mode-class 'special)
15 (defun mh-show-mode ()
16 "Major mode for showing messages in mh-e.
17 The value of mh-show-mode-hook is called when a new message is displayed."
18 (kill-all-local-variables)
19 (setq major-mode 'mh-show-mode)
20 (mh-set-mode-name "MH-Show")
21 (run-hooks 'mh-show-mode-hook))
23 (fset 'mh-show-msg (symbol-function 'mh-show))