This commit was generated by cvs2svn to compensate for changes in r542,

[elisp/tm.git] / tm-play.el

diff --git a/tm-play.el b/tm-play.el
index 4dd054e..a1366d7 100644 (file)
--- a/tm-play.el
+++ b/tm-play.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
-;; Version: $Id: tm-play.el,v 7.42 1997/02/06 17:31:09 morioka Exp $
+;; Version: $Id: tm-play.el,v 7.43 1997/03/12 14:26:55 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia
 
 ;; This file is part of tm (Tools for MIME).
@@ -273,9 +273,9 @@
        (cons t (mime-charset-to-coding-system default-mime-charset))
        ))
 
-(cond (running-mule-merged-emacs
+(cond ((boundp 'MULE) ; for MULE 2.3 or older
        (defun mime-article::write-region (start end file)
-        (let ((coding-system-for-write
+        (let ((file-coding-system
                (cdr
                 (or (assq major-mode mime-article/coding-system-alist)
                     (assq t mime-article/coding-system-alist)
@@ -283,10 +283,9 @@
           (write-region start end file)
           ))
        )
-      ((or (boundp 'MULE)
-          running-xemacs-with-mule)
+      ((featurep 'mule) ; for Emacs/mule and XEmacs/mule
        (defun mime-article::write-region (start end file)
-        (let ((file-coding-system
+        (let ((coding-system-for-write
                (cdr
                 (or (assq major-mode mime-article/coding-system-alist)
                     (assq t mime-article/coding-system-alist)
@@ -294,7 +293,7 @@
           (write-region start end file)
           ))
        )
-      ((boundp 'NEMACS)
+      ((boundp 'NEMACS) ; for NEmacs
        (defun mime-article::write-region (start end file)
         (let ((kanji-fileio-code
                (cdr
@@ -304,7 +303,7 @@
           (write-region start end file)
           ))
        )
-      (t
+      (t ; for Emacs 19 or older and XEmacs without mule
        (defalias 'mime-article::write-region 'write-region)
        ))