;;;
;;; $Id: tm-gnus4.el,v 5.4 1994/10/25 08:50:08 morioka Exp $
;;;

(provide 'tm-gnus4)

(require 'tm-gnus)
(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)

(defun tm-gnus/view-message (arg)
  "MIME decode and play this message."
  (interactive "P")
  (let ((gnus-break-pages nil))
    (gnus-summary-select-article t t)
    )
  (pop-to-buffer gnus-article-buffer t)
  (mime/viewer-mode)
  )

(defun tm-gnus/summary-scroll-down ()
  "Scroll down one line current article."
  (interactive)
  (gnus-summary-scroll-up -1)
  )

(add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))

(define-key gnus-summary-mode-map
  "\et" (function tm-gnus/toggle-mime-header-decoding-mode))
(define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
(define-key gnus-summary-mode-map
  "\e\r" (function tm-gnus/summary-scroll-down))

(fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
(add-hook 'gnus-article-mode-hook
	  (function mime/add-header-decoding-mode-to-mode-line))

(add-hook 'gnus-article-prepare-hook
	  (function mime/decode-message-header-if-you-need) t)