From c9c89f973920f55a76975ebf2264630041db5efc Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 18 Mar 1997 15:17:48 +0000
Subject: [PATCH] `mime::preview/mother-buffer' -> `mime-mother-buffer'.

---
 mime-play.el |    4 ++--
 mime-view.el |   19 ++++++++++++-------
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/mime-play.el b/mime-play.el
index fd52cf0..a32c047 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.28 1997-03-18 15:11:32 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.29 1997-03-18 15:17:48 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -235,7 +235,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
 (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)
+  (let ((mother mime-mother-buffer)
 	(win-conf mime::preview/original-window-configuration)
 	)
     (kill-buffer mime-raw-buffer)
diff --git a/mime-view.el b/mime-view.el
index 9053c09..7f58305 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.73 $
+;; Version: $Revision: 0.74 $
 ;; 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.73 1997-03-18 14:56:16 morioka Exp $")
+  "$Id: mime-view.el,v 0.74 1997-03-18 15:16:56 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -367,7 +367,12 @@ message/rfc822, content-infos of other entities are included in
 ;;; @@@ in view buffer
 ;;;
 
-(make-variable-buffer-local 'mime::preview/mother-buffer)
+(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
+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.")
@@ -438,9 +443,9 @@ The compressed face will be piped to this command.")
 ;;;
 
 (defun mime-preview/get-original-major-mode ()
-  (if mime::preview/mother-buffer
+  (if mime-mother-buffer
       (save-excursion
-	(set-buffer mime::preview/mother-buffer)
+	(set-buffer mime-mother-buffer)
 	(mime-preview/get-original-major-mode)
 	)
     mime::preview/original-major-mode))
@@ -829,7 +834,7 @@ button-2	Move to point under the mouse cursor
       (setq mime::preview/original-window-configuration win-conf)
       (if mother
 	  (progn
-	    (setq mime::preview/mother-buffer mother)
+	    (setq mime-mother-buffer mother)
 	    ))
       (mime-view-define-keymap default-keymap-or-function)
       (let ((point (next-single-property-change (point-min) 'mime-view-cinfo)))
@@ -971,7 +976,7 @@ It calls following-method selected from variable
 			      ": "
 			      (save-excursion
 				(set-buffer the-buf)
-				(set-buffer mime::preview/mother-buffer)
+				(set-buffer mime-mother-buffer)
 				(set-buffer mime-raw-buffer)
 				(std11-field-body field-name)
 				)
-- 
1.7.10.4