gnus/tm-gnus3.el

   1 ;;;
   2 ;;; $Id: tm-gnus3.el,v 6.0 1995/03/11 22:51:37 morioka Exp morioka $
   3 ;;;
   4
   5 (require 'tm-view)
   6 (require 'tl-list)
   7 (require 'tm-ognus)
   8
   9 (set-alist 'mime-viewer/quitting-method-alist
  10            'gnus-Article-mode
  11            (if (string-match (regexp-quote "3.14.4") gnus-version)
  12                (function
  13                 (lambda ()
  14                   (mime-viewer/kill-buffer)
  15                   (delete-other-windows)
  16                   (gnus-Article-show-summary)
  17                   ))
  18              (function
  19               (lambda ()
  20                 (mime-viewer/kill-buffer)
  21                 (delete-other-windows)
  22                 (gnus-Article-show-subjects)
  23                 ))))
  24
  25 (defun tm-gnus/view-message (arg)
  26   "MIME decode and play this message."
  27   (interactive "P")
  28   (let ((gnus-break-pages nil))
  29     (gnus-Subject-select-article t t)
  30     )
  31   (pop-to-buffer gnus-Article-buffer t)
  32   (mime/viewer-mode)
  33   )
  34
  35 (add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects))
  36
  37 (define-key gnus-Subject-mode-map
  38   "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
  39 (define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message)
  40
  41 (fset 'gnus-summary-select-article 'gnus-Subject-select-article)
  42
  43 (fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line)
  44 (add-hook 'gnus-Article-prepare-hook
  45           (function mime/decode-message-header-if-you-need) t)
  46
  47 (if (not (string-match "^GNUS 3\.14\.4" gnus-version))
  48     (progn
  49       (add-hook 'gnus-Article-mode-hook
  50                 (function
  51                  (lambda ()
  52                    (make-local-variable 'minor-mode-alist)
  53                    (mime/add-header-decoding-mode-to-mode-line)
  54                    )))
  55       )
  56   (progn
  57     (add-hook 'gnus-Article-mode-hook
  58               (function mime/add-header-decoding-mode-to-mode-line))
  59     ))
  60
  61 (provide 'tm-gnus3)