tm 4.8.3.

[elisp/tm.git] / tm-gnus4.el

diff --git a/tm-gnus4.el b/tm-gnus4.el
index 45ec0c2..958f8e8 100644 (file)
--- a/tm-gnus4.el
+++ b/tm-gnus4.el
@@ -1,10 +1,11 @@
 ;;;
-;;; $Id: tm-gnus4.el,v 2.0 1994/07/24 08:33:00 morioka Exp morioka $
+;;; $Id: tm-gnus4.el,v 3.1 1994/08/31 05:29:42 morioka Exp $
 ;;;
 
 (provide 'tm-gnus4)
 
 (require 'tm-gnus)
+(autoload 'mime/view-mode "tm-view" "View MIME message." t)
 
 (if (and (null gnus-startup-hook)
         (boundp 'gnus-Startup-hook))
@@ -27,6 +28,16 @@
     (setq gnus-article-prepare-hook gnus-Article-prepare-hook)
   )
 
+(defun tm-gnus/view-message (arg)
+  "MIME decode and play this message."
+  (interactive "P")
+  (let ((gnus-break-pages nil))
+    (gnus-summary-select-article t t)
+    )
+  (pop-to-buffer gnus-article-buffer t)
+  (mime/view-mode)
+  )
+
 (add-hook 'gnus-select-group-hook
          (function
           (lambda ()
@@ -41,9 +52,12 @@
 
 (define-key gnus-summary-mode-map
   "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
-(define-key gnus-summary-mode-map "v" 'tm-gnus/play-message)
-(define-key gnus-summary-mode-map "e" 'tm-gnus/extract-message)
-(define-key gnus-summary-mode-map "\C-cp" 'tm-gnus/print-message)
+(define-key gnus-summary-mode-map "v" 'tm-gnus/view-message)
+(define-key gnus-summary-mode-map "\e\r"
+  (function (lambda ()
+             (interactive)
+             (gnus-summary-scroll-up -1)
+             )))
 
 (fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
 (add-hook 'gnus-article-mode-hook
@@ -55,6 +69,3 @@
             (if mime/header-decoding-mode
                 (mime/decode-message-header)
               ))) t)
-
-(fset 'tm-gnus/full-decode-message 'tm-gnus/full-decode-message-new)
-(setq gnus-show-mime-method mime/body-decoding-method)