gnus/tm-gnus4.el

   1 ;;;
   2 ;;; $Id: tm-gnus4.el,v 6.0 1995/06/19 21:33:39 morioka Exp $
   3 ;;;
   4
   5 (require 'tm-ognus)
   6
   7 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
   8
   9 (defun tm-gnus/view-message (arg)
  10   "MIME decode and play this message."
  11   (interactive "P")
  12   (let ((gnus-break-pages nil))
  13     (gnus-summary-select-article t t)
  14     )
  15   (pop-to-buffer gnus-article-buffer t)
  16   (mime/viewer-mode)
  17   )
  18
  19 (defun tm-gnus/summary-scroll-down ()
  20   "Scroll down one line current article."
  21   (interactive)
  22   (gnus-summary-scroll-up -1)
  23   )
  24
  25 (add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))
  26
  27 (define-key gnus-summary-mode-map
  28   "\et" (function tm-gnus/toggle-mime-header-decoding-mode))
  29 (define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
  30 (define-key gnus-summary-mode-map
  31   "\e\r" (function tm-gnus/summary-scroll-down))
  32
  33 (fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
  34 (add-hook 'gnus-article-mode-hook
  35           (function mime/add-header-decoding-mode-to-mode-line))
  36
  37 (add-hook 'gnus-article-prepare-hook
  38           (function mime/decode-message-header-if-you-need) t)
  39
  40 (provide 'tm-gnus4)