From: morioka <morioka>
Date: Fri, 13 Mar 1998 18:19:42 +0000 (+0000)
Subject: Rename `mime-article::write-region' -> `mime-raw-write-region'.
X-Git-Tag: semi-1_1_0~72
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3b24f92cafaebf7dca667b692dd8ee887e118bc8;p=elisp%2Fsemi.git

Rename `mime-article::write-region' -> `mime-raw-write-region'.
---

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