[Mew-dist 03986] binmode() for imcat

[OKUNISHI Fujikazu]

"imcat http://foo.bar.com/baz.tar.gz > ./baz.tar.gz" のような使い方が
最近気に入ってまして、それを DOSish な環境で可能にするためのパッチです。

;; ファイルが予めわかってる場合にとても重宝しています(^_^)

とここまで書いて、簡単なコードで試してみました(^_^;

 (let ((buf (get-buffer-create "*imcat*"))
       (src "http://localhost/pmglobe.gif")
       (dst "d:/test.bin"))
   (set-buffer buf)
   (delete-region (point-min) (point-max))
   (mew-piolet mew-cs-noconv mew-cs-noconv
     (call-process "imcat2" nil t nil src))
   (mew-flet
     (write-region (point-min) (point-max) dst nil 'no-msg)))

バイナリ落とすだけだったら Netscape なんか要らないですね。。

--ふ＠重いの嫌い

--- imcat.in.orig	Wed Jan 14 14:43:10 1998
+++ imcat.in	Thu Feb 26 01:09:18 1998
@@ -81,6 +81,7 @@
     if ($rc < 0) {
 	im_die("can't access to message $msg.\n");
     }
+    binmode(stdout);  ## as binary
     foreach (@$data) {
 	print;
     }