2 ;;; $Id: tm-gnus3.el,v 5.4 1994/10/25 08:29:17 morioka Exp $
11 (setq mime/go-to-top-node-method-alist
12 (put-alist 'gnus-Article-mode
13 (if (string-match (regexp-quote "3.14.4") gnus-version)
17 (delete-other-windows)
18 (gnus-Article-show-summary)
23 (delete-other-windows)
24 (gnus-Article-show-subjects)
26 mime/go-to-top-node-method-alist))
28 (defun tm-gnus/view-message (arg)
29 "MIME decode and play this message."
31 (let ((gnus-break-pages nil))
32 (gnus-Subject-select-article t t)
34 (pop-to-buffer gnus-Article-buffer t)
38 (add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects))
40 (define-key gnus-Subject-mode-map
41 "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
42 (define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message)
44 (fset 'gnus-summary-select-article 'gnus-Subject-select-article)
46 (fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line)
47 (add-hook 'gnus-Article-prepare-hook
48 (function mime/decode-message-header-if-you-need) t)
50 (if (not (string-match "^GNUS 3\.14\.4" gnus-version))
52 (add-hook 'gnus-Article-mode-hook
55 (make-local-variable 'minor-mode-alist)
56 (mime/add-header-decoding-mode-to-mode-line)
60 (add-hook 'gnus-Article-mode-hook
61 (function mime/add-header-decoding-mode-to-mode-line))