;;;
;;; $Id: tm-gnus3.el,v 5.4 1994/10/25 08:29:17 morioka Exp $
;;;

(provide 'tm-gnus3)

(require 'tm-gnus)
(require 'tm-view)
(require 'tl-list)

(setq mime/go-to-top-node-method-alist
      (put-alist 'gnus-Article-mode
		 (if (string-match (regexp-quote "3.14.4") gnus-version)
		     (function
		      (lambda ()
			(mime/exit-view-mode)
			(delete-other-windows)
			(gnus-Article-show-summary)
			))
		   (function
		    (lambda ()
		      (mime/exit-view-mode)
		      (delete-other-windows)
		      (gnus-Article-show-subjects)
		      )))
		 mime/go-to-top-node-method-alist))

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

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

(define-key gnus-Subject-mode-map
  "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
(define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message)

(fset 'gnus-summary-select-article 'gnus-Subject-select-article)

(fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line)
(add-hook 'gnus-Article-prepare-hook
	  (function mime/decode-message-header-if-you-need) t)

(if (not (string-match "^GNUS 3\.14\.4" gnus-version))
    (progn
      (add-hook 'gnus-Article-mode-hook
		(function
		 (lambda ()
		   (make-local-variable 'minor-mode-alist)
		   (mime/add-header-decoding-mode-to-mode-line)
		   )))
      )
  (progn
    (add-hook 'gnus-Article-mode-hook
	      (function mime/add-header-decoding-mode-to-mode-line))
    ))