From: morioka <morioka>
Date: Fri, 13 Mar 1998 16:44:00 +0000 (+0000)
Subject: Rename `mime-view-get-original-major-mode' ->
X-Git-Tag: semi-1_1_0~88
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a2c4bb48abefc96fb24682256c219d09e2b6851e;p=elisp%2Fsemi.git

Rename `mime-view-get-original-major-mode' ->
`mime-preview-original-major-mode'.
---

diff --git a/mime-view.el b/mime-view.el
index 84d747a..a0ff3d8 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -117,7 +117,7 @@
     "application/pgp" "text/x-pgp"
     "application/octet-stream"
     "application/x-selection" "application/x-comment")
-  "*List of media-types to be able to display in MIME-View buffer.
+  "*List of media-types to be able to display in MIME-preview buffer.
 Each elements are string of TYPE/SUBTYPE, e.g. \"text/plain\".")
 
 (defvar mime-view-content-button-visible-ctype-list
@@ -269,7 +269,7 @@ Please redefine this function if you want to change default setting."
     ("text/richtext" . mime-view-filter-for-text/richtext)
     (t . mime-view-filter-for-text/plain)
     )
-  "Alist of media-types vs. corresponding MIME-View filter functions.
+  "Alist of media-types vs. corresponding MIME-preview filter functions.
 Each element looks like (TYPE/SUBTYPE . FUNCTION) or (t . FUNCTION).
 TYPE/SUBTYPE is a string of media-type and FUNCTION is a filter
 function.  t means default media-type.")
@@ -320,7 +320,7 @@ message/rfc822, entity-infos of other entities are included in
 (make-variable-buffer-local 'mime-raw-entity-info)
 
 (defvar mime-preview-buffer nil
-  "MIME preview buffer corresponding with the (raw) buffer.")
+  "MIME-preview buffer corresponding with the (raw) buffer.")
 (make-variable-buffer-local 'mime-preview-buffer)
 
 
@@ -328,13 +328,13 @@ message/rfc822, entity-infos of other entities are included in
 ;;;
 
 (defvar mime-mother-buffer nil
-  "Mother buffer corresponding with the (MIME-View) buffer.
-If current MIME-View buffer is generated by other buffer, such as
+  "Mother buffer corresponding with the (MIME-preview) buffer.
+If current MIME-preview buffer is generated by other buffer, such as
 message/partial, it is called `mother-buffer'.")
 (make-variable-buffer-local 'mime-mother-buffer)
 
 (defvar mime-raw-buffer nil
-  "Raw buffer corresponding with the (MIME-View) buffer.")
+  "Raw buffer corresponding with the (MIME-preview) buffer.")
 (make-variable-buffer-local 'mime-raw-buffer)
 
 (defvar mime-preview-original-major-mode nil
@@ -872,14 +872,14 @@ It decodes current entity to call internal or external method as
 ;;; @@ following
 ;;;
 
-(defun mime-view-get-original-major-mode ()
+(defun mime-preview-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-preview-original-major-mode)
 	)
     mime-preview-original-major-mode))
 
@@ -937,7 +937,7 @@ It calls following-method selected from variable
 		 (setq p-end (point-max))
 		 ))
 	     ))
-      (let* ((mode (mime-view-get-original-major-mode))
+      (let* ((mode (mime-preview-original-major-mode))
 	     (new-name (format "%s-%s" (buffer-name) (reverse rcnum)))
 	     new-buf
 	     (the-buf (current-buffer))
@@ -1155,7 +1155,7 @@ If reached to (point-min), it calls function registered in variable
 ;;;
 
 (defun mime-preview-quit ()
-  "Quit from MIME-View buffer.
+  "Quit from MIME-preview buffer.
 It calls function registered in variable
 `mime-view-quitting-method-alist'."
   (interactive)