[Mew-dist 12352] Re: [Mew-Win32 02395] imget --src=local with ^Z (Re: b25.)

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Shuichi KITAGUCHI (北口修一) <kit at example.com> さん曰く
Subject: [Mew-dist 12333] Re: [Mew-Win32 02395] imget --src=local with ^Z (Re:  b25.)
Message-ID: <20000211.163847.60846492.kit at example.com>
Date: Fri, 11 Feb 2000 16:39:26 +0900

かず> それなら、Open という関数を用意して、プラットフォームの違いを吸収した
かず> らどうですか？ 
北口> ...
かず> 任せました。> kit

北口> 任されてしまいましたので(^^;、パッチです。

おつかれさんです。

北口> 慎重に手を入れたつもりですが、間違いがあるかもしれませんのでご注意ください。

全部見たわけでは無いので、まだなにかあるかもしれないですが、

1. きっと os/2 も binmode() しないといけないんじゃないかと思う。
 それ以前に、os/2 で使っている人がいるんだろうか？

2. immknmz で ~/Mail/.folders を binmode で開くと、CRLF なシステ
 ムだと、CR が残ったまま処理をするので破綻する。

のパッチです。

P.S.
configure (というか configure.in なのかな？ こういうのわからない)
の 'chmod 555' しているところに immknmz をいれてもらえるとありが
たいです。

-- 
白井秀行＠現在、Namazu version 2 対応作業中。

-------------- next part --------------
*** immknmz.in.orig	Mon Feb 14 09:20:16 2000
--- immknmz.in	Mon Feb 14 09:23:58 2000
***************
*** 77,82 ****
--- 77,83 ----
  
  im_open(\*FILE, "<$folderspath" );
  while ( <FILE> ){
+     s/\r$// if &win95p() || &os2p();
      chomp;
      $msgfolder = $_;
      $flag = 0;
*** IM/Util.pm.orig	Mon Feb 14 09:20:43 2000
--- IM/Util.pm	Mon Feb 14 09:22:24 2000
***************
*** 261,267 ****
      my ($d, $a) = @_;
      my ($r);
      if ($r = open($d, $a)) {
! 	binmode($d) if &win95p();
      }
      return $r;
  }
--- 261,267 ----
      my ($d, $a) = @_;
      my ($r);
      if ($r = open($d, $a)) {
! 	binmode($d) if &win95p() || &os2p();
      }
      return $r;
  }
***************
*** 270,276 ****
      my ($d, $f, $a) = @_;
      my ($r);
      if ($r = sysopen($d, $f, $a)) {
! 	binmode($d) if &win95p();
      }
      return $r;
  }
--- 270,276 ----
      my ($d, $f, $a) = @_;
      my ($r);
      if ($r = sysopen($d, $f, $a)) {
! 	binmode($d) if &win95p() || &os2p();
      }
      return $r;
  }