;;;
;;; $Id: tm-rmail.el,v 5.1 1994/10/17 06:31:29 morioka Exp $
;;;

(provide 'tm-rmail)

(if (< (string-to-int emacs-version) 19)
    (require 'tl-18)
  )
(autoload 'mime/viewer-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 ((mf (buffer-modified-p))
		   (buffer-read-only nil))
	       (mime/decode-message-header)
	       (set-buffer-modified-p mf)
	       ))))

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

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