2 ;;; $Id: tm-gnus4.el,v 5.4 1994/10/25 08:50:08 morioka Exp $
8 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
10 (defun tm-gnus/view-message (arg)
11 "MIME decode and play this message."
13 (let ((gnus-break-pages nil))
14 (gnus-summary-select-article t t)
16 (pop-to-buffer gnus-article-buffer t)
20 (defun tm-gnus/summary-scroll-down ()
21 "Scroll down one line current article."
23 (gnus-summary-scroll-up -1)
26 (add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))
28 (define-key gnus-summary-mode-map
29 "\et" (function tm-gnus/toggle-mime-header-decoding-mode))
30 (define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
31 (define-key gnus-summary-mode-map
32 "\e\r" (function tm-gnus/summary-scroll-down))
34 (fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
35 (add-hook 'gnus-article-mode-hook
36 (function mime/add-header-decoding-mode-to-mode-line))
38 (add-hook 'gnus-article-prepare-hook
39 (function mime/decode-message-header-if-you-need) t)