From 5a475881dc17aa0e5f1405aa2638dd660cb5d05c Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 3 Apr 1997 17:37:26 +0000
Subject: [PATCH] `mime-preview/get-original-major-mode' ->
 `mime-view-get-original-major-mode'.

---
 mime-view.el |   49 ++++++++++++++++++++++++++++++++++---------------
 1 file changed, 34 insertions(+), 15 deletions(-)

diff --git a/mime-view.el b/mime-view.el
index deeff69..e344e22 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.81 $
+;; Version: $Revision: 0.82 $
 ;; 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.81 1997-03-27 22:16:53 morioka Exp $")
+  "$Id: mime-view.el,v 0.82 1997-04-03 17:37:26 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -441,18 +441,6 @@ The compressed face will be piped to this command.")
 	  ))))
 
 
-;;; @@ utility
-;;;
-
-(defun mime-preview/get-original-major-mode ()
-  (if mime-mother-buffer
-      (save-excursion
-	(set-buffer mime-mother-buffer)
-	(mime-preview/get-original-major-mode)
-	)
-    mime-view-original-major-mode))
-
-
 ;;; @ buffer setup
 ;;;
 
@@ -854,6 +842,10 @@ button-2	Move to point under the mouse cursor
       (run-hooks 'mime-view-mode-hook)
       )))
 
+
+;;; @@ playing
+;;;
+
 (autoload 'mime-view-play-current-entity "mime-play" "Play current entity." t)
 
 (defun mime-view-extract-current-entity ()
@@ -874,6 +866,21 @@ It decodes current entity to call internal or external method as
   (mime-view-play-current-entity "print")
   )
 
+
+;;; @@ following
+;;;
+
+(defun mime-view-get-original-major-mode ()
+  "Return major-mode of original buffer.
+If a current buffer has mime-mother-buffer, return original major-mode
+of the mother-buffer."
+  (if mime-mother-buffer
+      (save-excursion
+	(set-buffer mime-mother-buffer)
+	(mime-view-get-original-major-mode)
+	)
+    mime-view-original-major-mode))
+
 (defun mime-view-follow-current-entity ()
   "Write follow message to current entity.
 It calls following-method selected from variable
@@ -928,7 +935,7 @@ It calls following-method selected from variable
 		 (setq p-end (point-max))
 		 ))
 	     ))
-      (let* ((mode (mime-preview/get-original-major-mode))
+      (let* ((mode (mime-view-get-original-major-mode))
 	     (new-name (format "%s-%s" (buffer-name) (reverse rcnum)))
 	     new-buf
 	     (the-buf (current-buffer))
@@ -1004,6 +1011,10 @@ It calls following-method selected from variable
 	    ))
 	))))
 
+
+;;; @@ X-Face
+;;;
+
 (defun mime-view-display-x-face ()
   (interactive)
   (save-window-excursion
@@ -1011,6 +1022,10 @@ It calls following-method selected from variable
     (mime-view-x-face-function)
     ))
 
+
+;;; @@ moving
+;;;
+
 (defun mime-view-move-to-upper ()
   "Move to upper entity.
 If there is no upper entity, call function `mime-view-quit'."
@@ -1132,6 +1147,10 @@ If reached to (point-min), it calls function registered in variable
   (mime-view-scroll-down-entity 1)
   )
 
+
+;;; @@ quitting
+;;;
+
 (defun mime-view-quit ()
   "Quit from MIME-View buffer.
 It calls function registered in variable
-- 
1.7.10.4