From: morioka <morioka>
Date: Sat, 14 Mar 1998 23:13:18 +0000 (+0000)
Subject: Rename `mime-raw-coding-system-alist' ->
X-Git-Tag: semi-1_1_0~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d31ec19e13bc38aba1f88357de7a10b1243433d2;p=elisp%2Fsemi.git

Rename `mime-raw-coding-system-alist' ->
`mime-raw-buffer-coding-system-alist'.
---

diff --git a/mime-play.el b/mime-play.el
index 3d060a5..1310df2 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -330,12 +330,12 @@ It is registered to variable `mime-preview-quitting-method-alist'."
   "Write current region into specified file.
 When called from a program, takes three arguments:
 START, END and FILENAME.  START and END are buffer positions.
-It refer `mime-raw-coding-system-alist' to choose coding-system to
-write."
+It refer `mime-raw-buffer-coding-system-alist' to choose coding-system
+to write."
   (let ((coding-system-for-write
 	 (cdr
-	  (or (assq major-mode mime-raw-coding-system-alist)
-	      (assq t mime-raw-coding-system-alist)
+	  (or (assq major-mode mime-raw-buffer-coding-system-alist)
+	      (assq t mime-raw-buffer-coding-system-alist)
 	      ))))
     (write-region start end filename)
     ))
diff --git a/mime-view.el b/mime-view.el
index 4dc5cf8..1b176f4 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -479,10 +479,10 @@ The compressed face will be piped to this command.")
 
 (defvar mime-view-uuencode-encoding-name-list '("x-uue" "x-uuencode"))
 
-(defvar mime-raw-coding-system-alist
+(defvar mime-raw-buffer-coding-system-alist
   `((mh-show-mode . no-conversion)
     (t . ,(mime-charset-to-coding-system default-mime-charset)))
-  "Alist of major-mode vs. corresponding coding-system.")
+  "Alist of major-mode vs. corresponding coding-system of `mime-raw-buffer'.")
 
 
 ;;; @ buffer setup