Delete garbages.

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

diff --git a/tm-gnus3.el b/tm-gnus3.el
deleted file mode 100644 (file)
index 38ef4a4..0000000
--- a/tm-gnus3.el
+++ /dev/null
@@ -1,62 +0,0 @@
-;;;
-;;; $Id: tm-gnus3.el,v 5.4 1994/10/25 08:29:17 morioka Exp $
-;;;
-
-(provide 'tm-gnus3)
-
-(require 'tm-gnus)
-(require 'tm-view)
-(require 'tl-list)
-
-(setq mime/go-to-top-node-method-alist
-      (put-alist 'gnus-Article-mode
-                (if (string-match (regexp-quote "3.14.4") gnus-version)
-                    (function
-                     (lambda ()
-                       (mime/exit-view-mode)
-                       (delete-other-windows)
-                       (gnus-Article-show-summary)
-                       ))
-                  (function
-                   (lambda ()
-                     (mime/exit-view-mode)
-                     (delete-other-windows)
-                     (gnus-Article-show-subjects)
-                     )))
-                mime/go-to-top-node-method-alist))
-
-(defun tm-gnus/view-message (arg)
-  "MIME decode and play this message."
-  (interactive "P")
-  (let ((gnus-break-pages nil))
-    (gnus-Subject-select-article t t)
-    )
-  (pop-to-buffer gnus-Article-buffer t)
-  (mime/viewer-mode)
-  )
-
-(add-hook 'gnus-Select-group-hook (function tm-gnus/decode-summary-subjects))
-
-(define-key gnus-Subject-mode-map
-  "\et" 'tm-gnus/toggle-mime-header-decoding-mode)
-(define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message)
-
-(fset 'gnus-summary-select-article 'gnus-Subject-select-article)
-
-(fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line)
-(add-hook 'gnus-Article-prepare-hook
-         (function mime/decode-message-header-if-you-need) t)
-
-(if (not (string-match "^GNUS 3\.14\.4" gnus-version))
-    (progn
-      (add-hook 'gnus-Article-mode-hook
-               (function
-                (lambda ()
-                  (make-local-variable 'minor-mode-alist)
-                  (mime/add-header-decoding-mode-to-mode-line)
-                  )))
-      )
-  (progn
-    (add-hook 'gnus-Article-mode-hook
-             (function mime/add-header-decoding-mode-to-mode-line))
-    ))