Delete garbages.

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

diff --git a/tm-gnus4.el b/tm-gnus4.el
deleted file mode 100644 (file)
index 4a1f6de..0000000
--- a/tm-gnus4.el
+++ /dev/null
@@ -1,39 +0,0 @@
-;;;
-;;; $Id: tm-gnus4.el,v 5.4 1994/10/25 08:50:08 morioka Exp $
-;;;
-
-(provide 'tm-gnus4)
-
-(require 'tm-gnus)
-(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
-
-(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/viewer-mode)
-  )
-
-(defun tm-gnus/summary-scroll-down ()
-  "Scroll down one line current article."
-  (interactive)
-  (gnus-summary-scroll-up -1)
-  )
-
-(add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))
-
-(define-key gnus-summary-mode-map
-  "\et" (function tm-gnus/toggle-mime-header-decoding-mode))
-(define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
-(define-key gnus-summary-mode-map
-  "\e\r" (function tm-gnus/summary-scroll-down))
-
-(fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
-(add-hook 'gnus-article-mode-hook
-         (function mime/add-header-decoding-mode-to-mode-line))
-
-(add-hook 'gnus-article-prepare-hook
-         (function mime/decode-message-header-if-you-need) t)