From: tomo <tomo>
Date: Thu, 14 Dec 2000 07:08:44 +0000 (+0000)
Subject: Don't require `poem'.
X-Git-Tag: flim-1_14_0-pre5~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=278afa4948111249e753e928f95faa35ffbfd0ab;p=elisp%2Fflim.git

Don't require `poem'.
(binary-insert-file-contents): New function.
(binary-write-region): New function.
---

diff --git a/mime-def.el b/mime-def.el
index bb75c72..5db2cf9 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -25,7 +25,6 @@
 ;;; Code:
 
 (require 'poe)
-(require 'poem)
 (require 'custom)
 (require 'mcharset)
 (require 'alist)
@@ -79,7 +78,24 @@
 (defsubst regexp-or (&rest args)
   (concat "\\(" (mapconcat (function identity) args "\\|") "\\)"))
 
+(eval-when-compile (require 'static))
+
+(static-if (and (featurep 'xemacs)
+		(not (featurep 'utf-2000)))
+    (progn
+      (require 'pces)
+      (defalias 'binary-insert-file-contents 'insert-file-contents-as-binary)
+      (defalias 'binary-write-region 'write-region-as-binary))
+  (defalias 'binary-insert-file-contents 'insert-file-contents-literally)
+  (defun binary-write-region (start end filename
+				    &optional append visit lockname)
+    "Like `write-region', q.v., but don't encode."
+    (let ((coding-system-for-write 'binary)
+	  jka-compr-compression-info-list jam-zcat-filename-list)
+      (write-region start end filename append visit lockname)))
+  )
 
+  
 ;;; @ about STD 11
 ;;;