[Mew-dist 10860] Re: im-132

[Shuichi KITAGUCHI ( 北口修一 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 10831] im-132
Date: Thu, 7 Oct 1999 20:15:56 +0900

北口です。もたもたしているうちに取り込まれてしまった...

かず> ftp://ftp.mew.org/pub/Mew/beta/im-132.tar.gz 

かず> です。

immknmz の Win32 対応に不具合がありましたので、パッチです。

なお、「mknmz.bat があると mew-nmz.el が動かないよ〜」という方(たぶん NT)は
~/.emacs に

(define-process-argument-editing "\\.bat\\`"
  (lambda (x) (general-process-argument-editing-function x nil t t nil t t)))

を定義しておいてください。


--
Shuichi Kitaguchi <kit at example.com>
-------------- next part --------------
--- immknmz.in.original	Thu Oct  7 20:28:40 1999
+++ immknmz.in	Mon Oct 11 21:09:26 1999
@@ -103,20 +103,28 @@
 	@filelist = grep(/^[0-9]*$/ && -f "$msgfolder/$_",readdir(DIR));
 	closedir(DIR);
 
+	if (&win95p){
+	    $msgfolder =~ s:/:\\:g;
+	}
+
 	if ( scalar(@filelist) > 0 ){
 	    open(TEMPFILE,">$tempfile");
 	    foreach ( @filelist ){
-		print TEMPFILE "$msgfolder/$_\n";
+		if (&win95p){
+		    print TEMPFILE "$msgfolder\\$_\n";
+		} else {
+		    print TEMPFILE "$msgfolder/$_\n";
+		}
 	    }
 	    close(TEMPFILE);
 	    
 	    print "$Prog: processing $msgfolder ...\n";
 	    if ( $incfile eq "" ){
-#		print "mknmz $mknmz_args -O $nmzfolder -F $tempfile $msgfolder\n";
-		$ret = system "mknmz $mknmz_args -O $nmzfolder -F $tempfile $msgfolder";
+#		print "mknmz $mknmz_args -O $nmzfolder -F $tempfile\n";
+		$ret = system "mknmz $mknmz_args -O $nmzfolder -F $tempfile";
 	    } else {
-#		print "mknmz $mknmz_args -O $nmzfolder -F $tempfile -I $incfile $msgfolder\n";
-		$ret = system "mknmz $mknmz_args -O $nmzfolder -F $tempfile -I $incfile $msgfolder";
+#		print "mknmz $mknmz_args -O $nmzfolder -F $tempfile -I $incfile\n";
+		$ret = system "mknmz $mknmz_args -O $nmzfolder -F $tempfile -I $incfile";
 	    }
 	    unlink $tempfile;
 	    if ( $ret == 2 ){