* poem-20.el (write-region-as-binary): Bind `jam-zcat-filename-list' with nil.

* poem-xm.el (insert-file-contents-as-binary): Likewise.

* poem.el: Require `tcp' if the function `open-network-stream' does not exist.

diff --git a/ChangeLog b/ChangeLog
index bb5bdf0..b89b8f7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+1998-12-08  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * poem-20.el (write-region-as-binary): Bind
+       `jam-zcat-filename-list' with nil.
+       * poem-xm.el (insert-file-contents-as-binary): Likewise.
+
+       * poem.el: Require `tcp' if the function `open-network-stream'
+       does not exist.
+
 1998-12-04  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * poem-20.el, poem-ltn1.el, poem-nemacs.el, poem-om.el

diff --git a/poem-20.el b/poem-20.el
index a8ae858..8ac9b23 100644 (file)
--- a/poem-20.el
+++ b/poem-20.el
@@ -51,7 +51,7 @@
                                     &optional append visit lockname)
   "Like `write-region', q.v., but don't encode."
   (let ((coding-system-for-write 'binary)
-       jka-compr-compression-info-list)
+       jka-compr-compression-info-list jam-zcat-filename-list)
     (write-region start end filename append visit lockname)))
 
 ;; `insert-file-contents-literally' of Emacs 20 supports

diff --git a/poem-xm.el b/poem-xm.el
index e64b8bd..e1e7bfb 100644 (file)
--- a/poem-xm.el
+++ b/poem-xm.el
@@ -109,6 +109,7 @@ This function ensures that none of these modifications will take place."
        (coding-system-for-read 'binary)
        (coding-system-for-write 'binary)
        (jka-compr-compression-info-list nil)
+       (jam-zcat-filename-list nil)
        (find-buffer-file-type-function
         (if (fboundp 'find-buffer-file-type)
             (symbol-function 'find-buffer-file-type)

diff --git a/poem.el b/poem.el
index 443b576..fabbaae 100644 (file)
--- a/poem.el
+++ b/poem.el
@@ -26,6 +26,10 @@
 
 (require 'poe)
 
+(eval-and-compile
+  (unless (fboundp 'open-network-stream)
+    (require 'tcp)))
+
 (cond ((featurep 'mule)
        (cond ((featurep 'xemacs)
              (require 'poem-xm)