`mime::preview/mother-buffer' -> `mime-mother-buffer'.

diff --git a/mime-play.el b/mime-play.el
index fd52cf0..a32c047 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.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 (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.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)
                                )