From da7660a46efa76219a22ccb98c56d29bb18c6f4a Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 28 Jun 1998 23:53:02 +0000 Subject: [PATCH] Abolish function `mime-raw-write-region'. --- mime-play.el | 16 ---------------- 1 file changed, 16 deletions(-) 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 -- 1.7.10.4