From 3b24f92cafaebf7dca667b692dd8ee887e118bc8 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 18:19:42 +0000 Subject: [PATCH] Rename `mime-article::write-region' -> `mime-raw-write-region'. --- mime-play.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/mime-play.el b/mime-play.el index 25443c0..333a16f 100644 --- a/mime-play.el +++ b/mime-play.el @@ -327,17 +327,22 @@ It is registered to variable `mime-view-quitting-method-alist'." ;;; (defvar mime-raw-coding-system-alist - (list '(mh-show-mode . no-conversion) - (cons t (mime-charset-to-coding-system default-mime-charset)) - )) - -(defun mime-article::write-region (start end file) + `((mh-show-mode . no-conversion) + (t . ,(mime-charset-to-coding-system default-mime-charset))) + "Alist of major-mode vs. corresponding coding-system.") + +(defun mime-raw-write-region (start end filename) + "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." (let ((coding-system-for-write (cdr (or (assq major-mode mime-raw-coding-system-alist) (assq t mime-raw-coding-system-alist) )))) - (write-region start end file) + (write-region start end filename) )) (defun mime-method-to-store-message/partial (beg end cal) @@ -381,7 +386,7 @@ It is registered to variable `mime-view-quitting-method-alist'." (re-search-forward "^$") (goto-char (1+ (match-end 0))) (setq file (concat root-dir "/" number)) - (mime-article::write-region (point) end file) + (mime-raw-write-region (point) end file) (let ((total-file (concat root-dir "/CT"))) (setq total (if total -- 1.7.10.4