From 4af6f849fb5bdcd3dc0207b8767a15cf35e040bc Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 7 May 1997 09:37:54 +0000 Subject: [PATCH] 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'. --- mime-play.el | 23 ++--------------------- 1 file changed, 2 insertions(+), 21 deletions(-) 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 ;; 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) )) -- 1.7.10.4