X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Ftm.git;a=blobdiff_plain;f=tm-mh-e.el;fp=tm-mh-e.el;h=0000000000000000000000000000000000000000;hp=0628ab3420c6d5e4bae0fd2deadd8b50cbf48134;hb=ab144a98f7d34c56328985d22e6801462a3c1f52;hpb=fe8761fcfaa18799752717f6b39c95304e1e6192

diff --git a/tm-mh-e.el b/tm-mh-e.el
deleted file mode 100644
index 0628ab3..0000000
--- a/tm-mh-e.el
+++ /dev/null
@@ -1,80 +0,0 @@
-;;;
-;;; A MIME extender for mh-e
-;;;
-;;; by Morioka Tomohiko, 1993/11/21
-;;;
-
-(provide 'tm-mh-e)
-
-
-;;; @ require modules
-;;;
-(require 'tl-str)
-(require 'tm-misc)
-(require 'mh-e)
-(if (not (boundp 'mh-e-version))
-    (require 'tm-mh-e3)
-  )
-(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
-
-
-;;; @ version
-;;;
-(defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 5.3 1994/10/25 09:06:36 morioka Exp $")
-
-(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
-
-
-;;; @ MIME header decoding mode
-;;;
-(defun tm-mh-e/toggle-header-decoding-mode (arg)
-  "Toggle MIME header processing.
-With arg, turn MIME processing on if arg is positive."
-  (interactive "P")
-  (setq mime/header-decoding-mode
-	(if (null arg)
-	    (not mime/header-decoding-mode)
-	  arg))
-  (mh-invalidate-show-buffer)
-  (mh-show-msg (mh-get-msg-num t))
-  )
-
-
-;;; @ MIME body players
-;;;
-(defun tm-mh-e/view-message (arg)
-  "MIME decode and play this message."
-  (interactive "P")
-  (mh-invalidate-show-buffer)
-  (mh-show-msg (mh-get-msg-num t))
-  (pop-to-buffer mh-show-buffer t)
-  (mime/viewer-mode)
-  )
-
-
-;;; @ set up
-;;;
-
-(defun tm-mh-e/decode-message-header ()
-  (make-local-variable 'minor-mode-alist)
-  (mime/add-header-decoding-mode-to-mode-line)
-  (let ((buffer-read-only nil))
-    (mime/decode-message-header-if-you-need)
-    (set-buffer-modified-p nil)
-    ))
-(add-hook 'mh-show-mode-hook
-	  (function tm-mh-e/decode-message-header))
-
-(define-key mh-folder-mode-map "\et" 'tm-mh-e/toggle-header-decoding-mode)
-(define-key mh-folder-mode-map "v" 'tm-mh-e/view-message)
-(define-key mh-folder-mode-map "\r"
-  (function (lambda ()
-	      (interactive)
-	      (scroll-other-window 1)
-	      )))
-(define-key mh-folder-mode-map "\e\r"
-  (function (lambda ()
-	      (interactive)
-	      (scroll-other-window -1)
-	      )))