gnus/tm-gnus3.el

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