tm-gnus4.el

   1 ;;;
   2 ;;; $Id: tm-gnus4.el,v 5.4 1994/10/25 08:50:08 morioka Exp $
   3 ;;;
   4
   5 (provide 'tm-gnus4)
   6
   7 (require 'tm-gnus)
   8 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
   9
  10 (defun tm-gnus/view-message (arg)
  11   "MIME decode and play this message."
  12   (interactive "P")
  13   (let ((gnus-break-pages nil))
  14     (gnus-summary-select-article t t)
  15     )
  16   (pop-to-buffer gnus-article-buffer t)
  17   (mime/viewer-mode)
  18   )
  19
  20 (defun tm-gnus/summary-scroll-down ()
  21   "Scroll down one line current article."
  22   (interactive)
  23   (gnus-summary-scroll-up -1)
  24   )
  25
  26 (add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))
  27
  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))
  33
  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))
  37
  38 (add-hook 'gnus-article-prepare-hook
  39           (function mime/decode-message-header-if-you-need) t)