From: morioka <morioka>
Date: Wed, 7 May 1997 09:37:54 +0000 (+0000)
Subject: Don't require `view'.
X-Git-Tag: Hokutetsu-Ishikawa-new~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4af6f849fb5bdcd3dc0207b8767a15cf35e040bc;p=elisp%2Fsemi.git

Don't require `view'.
Constant `mime-view-text/plain-mode-map' was abolished.
Function `mime-view-text/plain-mode' and `mime-view-text/plain-exit'
were abolished.
(mime-display-caesar): Use `view-mode-enter mother' instead of
`mime-view-text/plain-mode'.
---

diff --git a/mime-play.el b/mime-play.el
index 80eda26..9876101 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;	Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.37 1997-05-07 09:32:34 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.38 1997-05-07 09:37:54 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -450,25 +450,6 @@ It is registered to variable `mime-view-quitting-method-alist'."
 ;;; @ rot13-47
 ;;;
 
-(require 'view)
-
-(defconst mime-view-text/plain-mode-map (copy-keymap view-mode-map))
-(define-key mime-view-text/plain-mode-map
-  "q" (function mime-view-text/plain-exit))
-
-(defun mime-view-text/plain-mode ()
-  "\\{mime-view-text/plain-mode-map}"
-  (setq buffer-read-only t)
-  (setq major-mode 'mime-view-text/plain-mode)
-  (setq mode-name "MIME-View text/plain")
-  (use-local-map mime-view-text/plain-mode-map)
-  )
-
-(defun mime-view-text/plain-exit ()
-  (interactive)
-  (kill-buffer (current-buffer))
-  )
-
 (defun mime-display-caesar (beg end cal)
   "Internal method for mime-view to display ROT13-47-48 message."
   (let* ((cnum (mime-article/point-content-number beg))
@@ -505,7 +486,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
       (tm:caesar-region)
       )
     (set-buffer-modified-p nil)
-    (mime-view-text/plain-mode)
+    (view-mode-enter mother 'kill-buffer)
     ))