;;;
;;; A MIME extender for mh-e
;;;
;;; by Morioka Tomohiko, 1993/11/21
;;;

(provide 'tm-mh-e)


;;; @ require modules
;;;
(require 'tl-str)
(require 'tm-misc)
(require 'mh-e)
(if (not (boundp 'mh-e-version))
    (require 'tm-mh-e3)
  )
(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)


;;; @ version
;;;
(defconst tm-mh-e/RCS-ID
  "$Id: tm-mh-e.el,v 5.3 1994/10/25 09:06:36 morioka Exp $")

(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))


;;; @ MIME header decoding mode
;;;
(defun tm-mh-e/toggle-header-decoding-mode (arg)
  "Toggle MIME header processing.
With arg, turn MIME processing on if arg is positive."
  (interactive "P")
  (setq mime/header-decoding-mode
	(if (null arg)
	    (not mime/header-decoding-mode)
	  arg))
  (mh-invalidate-show-buffer)
  (mh-show-msg (mh-get-msg-num t))
  )


;;; @ MIME body players
;;;
(defun tm-mh-e/view-message (arg)
  "MIME decode and play this message."
  (interactive "P")
  (mh-invalidate-show-buffer)
  (mh-show-msg (mh-get-msg-num t))
  (pop-to-buffer mh-show-buffer t)
  (mime/viewer-mode)
  )


;;; @ set up
;;;

(defun tm-mh-e/decode-message-header ()
  (make-local-variable 'minor-mode-alist)
  (mime/add-header-decoding-mode-to-mode-line)
  (let ((buffer-read-only nil))
    (mime/decode-message-header-if-you-need)
    (set-buffer-modified-p nil)
    ))
(add-hook 'mh-show-mode-hook
	  (function tm-mh-e/decode-message-header))

(define-key mh-folder-mode-map "\et" 'tm-mh-e/toggle-header-decoding-mode)
(define-key mh-folder-mode-map "v" 'tm-mh-e/view-message)
(define-key mh-folder-mode-map "\r"
  (function (lambda ()
	      (interactive)
	      (scroll-other-window 1)
	      )))
(define-key mh-folder-mode-map "\e\r"
  (function (lambda ()
	      (interactive)
	      (scroll-other-window -1)
	      )))