From: morioka <morioka>
Date: Tue, 18 Mar 1997 14:56:16 +0000 (+0000)
Subject: `mime::preview/article-buffer' -> `mime-raw-buffer'.
X-Git-Tag: Hokutetsu-Ishikawa-new~48
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b9e009c05782ecae8d2b16331cf4bc1386590432;p=elisp%2Fsemi.git

`mime::preview/article-buffer' -> `mime-raw-buffer'.
---

diff --git a/mime-view.el b/mime-view.el
index 57f070c..9053c09 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.72 $
+;; Version: $Revision: 0.73 $
 ;; 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.72 1997-03-18 14:40:11 morioka Exp $")
+  "$Id: mime-view.el,v 0.73 1997-03-18 14:56:16 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -360,7 +360,7 @@ message/rfc822, content-infos of other entities are included in
 (make-variable-buffer-local 'mime::article/content-info)
 
 (defvar mime-view-buffer nil
-  "MIME View buffer corresponding with the buffer.")
+  "MIME View buffer corresponding with the (raw) buffer.")
 (make-variable-buffer-local 'mime-view-buffer)
 
 
@@ -369,8 +369,9 @@ message/rfc822, content-infos of other entities are included in
 
 (make-variable-buffer-local 'mime::preview/mother-buffer)
 
-(defvar mime::preview/article-buffer nil)
-(make-variable-buffer-local 'mime::preview/article-buffer)
+(defvar mime-raw-buffer nil
+  "Raw buffer corresponding with the (MIME-View) buffer.")
+(make-variable-buffer-local 'mime-raw-buffer)
 
 (make-variable-buffer-local 'mime::preview/original-major-mode)
 (make-variable-buffer-local 'mime::preview/original-window-configuration)
@@ -472,7 +473,7 @@ The compressed face will be piped to this command.")
     (setq buffer-read-only nil)
     (widen)
     (erase-buffer)
-    (setq mime::preview/article-buffer the-buf)
+    (setq mime-raw-buffer the-buf)
     (setq mime::preview/original-major-mode mode)
     (setq major-mode 'mime-view-mode)
     (setq mode-name "MIME-View")
@@ -548,7 +549,7 @@ The compressed face will be piped to this command.")
 (defun mime-preview/display-header (beg end)
   (save-restriction
     (narrow-to-region (point)(point))
-    (insert-buffer-substring mime::preview/article-buffer beg end)
+    (insert-buffer-substring mime-raw-buffer beg end)
     (let ((f (cdr (assq mime::preview/original-major-mode
 			mime-view-content-header-filter-alist))))
       (if (functionp f)
@@ -562,7 +563,7 @@ The compressed face will be piped to this command.")
 				      rcnum cinfo ctype params subj encoding)
   (save-restriction
     (narrow-to-region (point-max)(point-max))
-    (insert-buffer-substring mime::preview/article-buffer beg end)
+    (insert-buffer-substring mime-raw-buffer beg end)
     (let ((f (cdr (or (assoc ctype mime-view-content-filter-alist)
 		      (assq t mime-view-content-filter-alist)))))
       (and (functionp f)
@@ -918,7 +919,7 @@ It calls following-method selected from variable
 	     (new-name (format "%s-%s" (buffer-name) (reverse rcnum)))
 	     new-buf
 	     (the-buf (current-buffer))
-	     (a-buf mime::preview/article-buffer)
+	     (a-buf mime-raw-buffer)
 	     fields)
 	(save-excursion
 	  (set-buffer (setq new-buf (get-buffer-create new-name)))
@@ -971,7 +972,7 @@ It calls following-method selected from variable
 			      (save-excursion
 				(set-buffer the-buf)
 				(set-buffer mime::preview/mother-buffer)
-				(set-buffer mime::preview/article-buffer)
+				(set-buffer mime-raw-buffer)
 				(std11-field-body field-name)
 				)
 			      "\n")))
@@ -993,7 +994,7 @@ It calls following-method selected from variable
 (defun mime-view-display-x-face ()
   (interactive)
   (save-window-excursion
-    (set-buffer mime::preview/article-buffer)
+    (set-buffer mime-raw-buffer)
     (mime-view-x-face-function)
     ))