From d31ec19e13bc38aba1f88357de7a10b1243433d2 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 14 Mar 1998 23:13:18 +0000 Subject: [PATCH] Rename `mime-raw-coding-system-alist' -> `mime-raw-buffer-coding-system-alist'. --- mime-play.el | 8 ++++---- mime-view.el | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) 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 -- 1.7.10.4