From d022d2a0e62b6f88bb83b9c89156a59a232994fb Mon Sep 17 00:00:00 2001 From: tmorioka Date: Fri, 28 Feb 1997 05:14:54 +0000 Subject: [PATCH] Supports only Emacs/mule API. --- mime-play.el | 44 +++++++++----------------------------------- 1 file changed, 9 insertions(+), 35 deletions(-) diff --git a/mime-play.el b/mime-play.el index 6d06072..698b2bb 100644 --- a/mime-play.el +++ b/mime-play.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) ;; Renamed: 1997/2/21 from tm-play.el -;; Version: $Id: mime-play.el,v 0.9 1997-02-28 04:56:22 tmorioka Exp $ +;; Version: $Id: mime-play.el,v 0.10 1997-02-28 05:14:54 tmorioka Exp $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -270,40 +270,14 @@ (cons t (mime-charset-to-coding-system default-mime-charset)) )) -(cond (running-mule-merged-emacs - (defun mime-article::write-region (start end file) - (let ((coding-system-for-write - (cdr - (or (assq major-mode mime-article/coding-system-alist) - (assq t mime-article/coding-system-alist) - )))) - (write-region start end file) - )) - ) - ((or (boundp 'MULE) - running-xemacs-with-mule) - (defun mime-article::write-region (start end file) - (let ((file-coding-system - (cdr - (or (assq major-mode mime-article/coding-system-alist) - (assq t mime-article/coding-system-alist) - )))) - (write-region start end file) - )) - ) - ((boundp 'NEMACS) - (defun mime-article::write-region (start end file) - (let ((kanji-fileio-code - (cdr - (or (assq major-mode mime-article/kanji-code-alist) - (assq t mime-article/kanji-code-alist) - )))) - (write-region start end file) - )) - ) - (t - (defalias 'mime-article::write-region 'write-region) - )) +(defun mime-article::write-region (start end file) + (let ((coding-system-for-write + (cdr + (or (assq major-mode mime-article/coding-system-alist) + (assq t mime-article/coding-system-alist) + )))) + (write-region start end file) + )) (defun mime-article/decode-message/partial (beg end cal) (goto-char beg) -- 1.7.10.4