tm-gnus3.el

   1 ;;;
   2 ;;; $Id: tm-gnus3.el,v 5.4 1994/10/25 08:29:17 morioka Exp $
   3 ;;;
   4
   5 (provide 'tm-gnus3)
   6
   7 (require 'tm-gnus)
   8 (require 'tm-view)
   9 (require 'tl-list)
  10
  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)
  14                      (function
  15                       (lambda ()
  16                         (mime/exit-view-mode)
  17                         (delete-other-windows)
  18                         (gnus-Article-show-summary)
  19                         ))
  20                    (function
  21                     (lambda ()
  22                       (mime/exit-view-mode)
  23                       (delete-other-windows)
  24                       (gnus-Article-show-subjects)
  25                       )))
  26                  mime/go-to-top-node-method-alist))
  27
  28 (defun tm-gnus/view-message (arg)
  29   "MIME decode and play this message."
  30   (interactive "P")
  31   (let ((gnus-break-pages nil))
  32     (gnus-Subject-select-article t t)
  33     )
  34   (pop-to-buffer gnus-Article-buffer t)
  35   (mime/viewer-mode)
  36   )
  37
  38 (add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects))
  39
  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)
  43
  44 (fset 'gnus-summary-select-article 'gnus-Subject-select-article)
  45
  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)
  49
  50 (if (not (string-match "^GNUS 3\.14\.4" gnus-version))
  51     (progn
  52       (add-hook 'gnus-Article-mode-hook
  53                 (function
  54                  (lambda ()
  55                    (make-local-variable 'minor-mode-alist)
  56                    (mime/add-header-decoding-mode-to-mode-line)
  57                    )))
  58       )
  59   (progn
  60     (add-hook 'gnus-Article-mode-hook
  61               (function mime/add-header-decoding-mode-to-mode-line))
  62     ))