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

diff --git a/mime-play.el b/mime-play.el
index 0b19e06..7423368 100644 (file)
--- 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 (file)
--- 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)