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 (file)
--- 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 (file)
--- 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