From 8ea51b80ccf22c0957a355c4edfa9745a532f5ae Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 13 Mar 1998 16:18:57 +0000
Subject: [PATCH] Rename `mime-view-buffer' -> `mime-preview-buffer'.

---
 mime-bbdb.el |    6 +++---
 mime-pgp.el  |    6 +++---
 mime-play.el |   14 +++++++-------
 mime-view.el |    8 ++++----
 4 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/mime-bbdb.el b/mime-bbdb.el
index 6ee0feb..002942a 100644
--- a/mime-bbdb.el
+++ b/mime-bbdb.el
@@ -155,9 +155,9 @@ Creating or modifying it as necessary. A record will be created if
 mime-bbdb/auto-create-p is non-nil, or if OFFER-TO-CREATE is non-nil and
 the user confirms the creation."
   (save-excursion
-    (if (and mime-view-buffer
-             (get-buffer mime-view-buffer))
-        (set-buffer mime-view-buffer))
+    (if (and mime-preview-buffer
+             (get-buffer mime-preview-buffer))
+        (set-buffer mime-preview-buffer))
     (if bbdb-use-pop-up
         (mime-bbdb/pop-up-bbdb-buffer offer-to-create)
       (let* ((from (std11-field-body "From"))
diff --git a/mime-pgp.el b/mime-pgp.el
index b5d301c..3fe6f0d 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -49,11 +49,11 @@
 
 (defun mime-method-for-application/pgp (beg end cal)
   (let* ((cnum (mime-article/point-content-number beg))
-	 (p-win (or (get-buffer-window mime-view-buffer)
+	 (p-win (or (get-buffer-window mime-preview-buffer)
 		    (get-largest-window)))
 	 (new-name (format "%s-%s" (buffer-name) cnum))
 	 (the-buf (current-buffer))
-	 (mother mime-view-buffer)
+	 (mother mime-preview-buffer)
 	 (mode major-mode)
 	 text-decoder)
     (set-buffer (get-buffer-create new-name))
@@ -99,7 +99,7 @@
     (setq major-mode 'mime-show-message-mode)
     (setq mime-text-decoder text-decoder)
     (save-window-excursion (mime-view-mode mother))
-    (set-window-buffer p-win mime-view-buffer)
+    (set-window-buffer p-win mime-preview-buffer)
     ))
 
 (set-atype 'mime-acting-condition
diff --git a/mime-play.el b/mime-play.el
index c9faecb..92344b9 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -196,7 +196,7 @@ window.")
 		 (setq win (get-buffer-window bbdb-buffer-name))
 		 )
 	    (set-window-buffer win mime-echo-buffer-name)
-	  (select-window (get-buffer-window mime-view-buffer))
+	  (select-window (get-buffer-window mime-preview-buffer))
 	  (setq win (split-window-vertically
 		     (- (window-height)
 			(if (functionp mime-echo-window-height)
@@ -304,7 +304,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 (defun mime-method-to-display-message/rfc822 (beg end cal)
   (let* ((cnum (mime-article/point-content-number beg))
 	 (new-name (format "%s-%s" (buffer-name) cnum))
-	 (mother mime-view-buffer)
+	 (mother mime-preview-buffer)
 	 (text-decoder
 	  (cdr (or (assq major-mode mime-text-decoder-alist)
 		   (assq t mime-text-decoder-alist))))
@@ -349,7 +349,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 	 (number (cdr (assoc "number" cal)))
 	 (total (cdr (assoc "total" cal)))
 	 file
-	 (mother mime-view-buffer)
+	 (mother mime-preview-buffer)
          )
     (or (file-exists-p root-dir)
 	(make-directory root-dir)
@@ -375,7 +375,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 	  (set-window-buffer pwin
 			     (save-excursion
 			       (set-buffer full-buf)
-			       mime-view-buffer))
+			       mime-preview-buffer))
 	  (select-window pwin)
 	  )
       (re-search-forward "^$")
@@ -449,7 +449,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 				))
 		      (pbuf (save-excursion
 			      (set-buffer full-buf)
-			      mime-view-buffer)))
+			      mime-preview-buffer)))
 		  (set-window-buffer pwin pbuf)
 		  (select-window pwin)
 		  )))))
@@ -466,7 +466,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
     ))
 
 (defun mime-article/dired-function-for-one-frame (dir)
-  (let ((win (or (get-buffer-window mime-view-buffer)
+  (let ((win (or (get-buffer-window mime-preview-buffer)
 		 (get-largest-window))))
     (select-window win)
     (dired dir)
@@ -494,7 +494,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
   (let* ((cnum (mime-article/point-content-number start))
 	 (new-name (format "%s-%s" (buffer-name) cnum))
 	 (the-buf (current-buffer))
-	 (mother mime-view-buffer)
+	 (mother mime-preview-buffer)
 	 (charset (cdr (assoc "charset" cal)))
 	 (encoding (cdr (assq 'encoding cal)))
 	 (mode major-mode)
diff --git a/mime-view.el b/mime-view.el
index 70a2898..bf363dc 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -319,9 +319,9 @@ message/rfc822, entity-infos of other entities are included in
 `children', so entity-info become a tree.")
 (make-variable-buffer-local 'mime-raw-entity-info)
 
-(defvar mime-view-buffer nil
-  "MIME View buffer corresponding with the (raw) buffer.")
-(make-variable-buffer-local 'mime-view-buffer)
+(defvar mime-preview-buffer nil
+  "MIME preview buffer corresponding with the (raw) buffer.")
+(make-variable-buffer-local 'mime-preview-buffer)
 
 
 ;;; @@@ in view buffer
@@ -438,7 +438,7 @@ The compressed face will be piped to this command.")
     (setq buffer-read-only t)
     (set-buffer the-buf)
     )
-  (setq mime-view-buffer obuf)
+  (setq mime-preview-buffer obuf)
   )
 
 (defun mime-view-display-entity (content cinfo ibuf obuf)
-- 
1.7.10.4