From: morioka <morioka>
Date: Mon, 17 Mar 1997 15:39:17 +0000 (+0000)
Subject: `mime/show-message-mode' -> `mime-show-message-mode'.
X-Git-Tag: Hokutetsu-Ishikawa-new~77
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=71a0bab6eac1e1004d11a4b494dfe171f7c51b18;p=elisp%2Fsemi.git

`mime/show-message-mode' -> `mime-show-message-mode'.
---

diff --git a/mime-play.el b/mime-play.el
index 0b19e06..7423368 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.23 1997-03-17 12:09:05 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.24 1997-03-17 15:37:40 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -232,7 +232,9 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
 ;;; @ mail/news message
 ;;;
 
-(defun mime-view-quitting-method-for-mime/show-message-mode ()
+(defun mime-view-quitting-method-for-mime-show-message-mode ()
+  "Quitting method for mime-view.
+It is registered to variable `mime-view-quitting-method-alist'."
   (let ((mother mime::preview/mother-buffer)
 	(win-conf mime::preview/original-window-configuration)
 	)
@@ -241,8 +243,6 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
     (mime-view-kill-buffer)
     (set-window-configuration win-conf)
     (pop-to-buffer mother)
-    ;;(goto-char (point-min))
-    ;;(mime-view-up-content)
     ))
 
 (defun mime-article/view-message/rfc822 (beg end cal)
@@ -261,7 +261,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
     (if (re-search-forward "^\n" nil t)
 	(delete-region (point-min) (match-end 0))
       )
-    (setq major-mode 'mime/show-message-mode)
+    (setq major-mode 'mime-show-message-mode)
     (setq mime-text-decoder text-decoder)
     (mime-view-mode mother)
     ))
@@ -313,7 +313,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
 	    (set-buffer full-buf)
 	    (erase-buffer)
 	    (as-binary-input-file (insert-file-contents file))
-	    (setq major-mode 'mime/show-message-mode)
+	    (setq major-mode 'mime-show-message-mode)
 	    (mime-view-mode mother)
 	    )
 	  (set-window-buffer pwin
@@ -383,7 +383,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
 		       (delete-file file)
 		       ))
 		(save-window-excursion
-		  (setq major-mode 'mime/show-message-mode)
+		  (setq major-mode 'mime-show-message-mode)
 		  (mime-view-mode mother)
 		  )
 		(let ((pwin (or (get-buffer-window mother)
diff --git a/mime-view.el b/mime-view.el
index 3c57c78..cf99b32 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;	Renamed: 1994/8/31 from tm-body.el
 ;;	Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.52 $
+;; Version: $Revision: 0.53 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.52 1997-03-17 15:34:30 morioka Exp $")
+  "$Id: mime-view.el,v 0.53 1997-03-17 15:39:17 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -362,8 +362,9 @@ Please redefine this function if you want to change default setting."
 ;;;
 
 (defvar mime-view-quitting-method-alist
-  '((mime/show-message-mode
-     . mime-view-quitting-method-for-mime/show-message-mode)))
+  '((mime-show-message-mode
+     . mime-view-quitting-method-for-mime-show-message-mode))
+  "Alist of major-mode vs. quitting-method of mime-view.")
 
 (defvar mime-view-over-to-previous-method-alist nil)
 (defvar mime-view-over-to-next-method-alist nil)