;;;
;;; $Id: tm-rmail.el,v 3.1 1994/08/31 05:37:24 morioka Exp $
;;;

(provide 'tm-rmail)

(if (< (string-to-int emacs-version) 19)
    (require 'tl-18)
  )
(autoload 'mime/view-mode "tm-view" "View MIME message." t)
(autoload 'mime/decode-message-header "tiny-mime" "Decode MIME header." t)

(add-hook 'rmail-show-message-hook
	  (function
	   (lambda ()
	     (let ((buffer-read-only nil))
	       (mime/decode-message-header)
	       )
	     (set-buffer-modified-p nil)
	     )))

(add-hook 'rmail-mode-hook
	  (function
	   (lambda ()
	     (local-set-key "v" 'mime/view-mode)
	     )))

(add-hook 'rmail-summary-mode-hook
	  (function
	   (lambda ()
	     (local-set-key "v"
			    (function
			     (lambda ()
			       (interactive)
			       (pop-to-buffer "RMAIL")
			       (mime/view-mode)
			       )))
	     )))