From: morioka <morioka>
Date: Sun, 28 Jun 1998 23:53:02 +0000 (+0000)
Subject: Abolish function `mime-raw-write-region'.
X-Git-Tag: remi-1_8_1~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=da7660a46efa76219a22ccb98c56d29bb18c6f4a;p=elisp%2Fsemi.git

Abolish function `mime-raw-write-region'.
---

diff --git a/mime-play.el b/mime-play.el
index 84366e8..7e61624 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -423,22 +423,6 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 ;;; @ message/partial
 ;;;
 
-(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-representation-type' or `major-mode
-mime-raw-representation-type-alist'.  If it is `binary', region is
-saved as binary.  Otherwise the region is saved by `write-region'."
-  (let ((presentation-type
-	 (or mime-raw-representation-type
-	     (cdr (or (assq major-mode mime-raw-representation-type-alist)
-		      (assq t mime-raw-representation-type-alist))))))
-    (if (eq presentation-type 'binary)
-	(write-region-as-binary start end filename)
-      (write-region start end filename)
-      )))
-
 (defun mime-store-message/partial-piece (entity cal)
   (goto-char (mime-entity-point-min entity))
   (let* ((root-dir