[Mew-dist 1486] Re: Mew 1.88 & im-55

[Masaki KONUMA]

こぬま＠ＭＴＥＸです。

mew から出したメールの "..." の行が "." になってしまいました。
imput の IgnoreDot がおかしいようです。

--
小沼雅樹 <konuma at example.com>


diff -ur im-55.orig/IM.in/Nntp.pm.in im-55/IM.in/Nntp.pm.in
--- im-55.orig/IM.in/Nntp.pm.in	Mon Aug  4 09:24:04 1997
+++ im-55/IM.in/Nntp.pm.in	Fri Aug  8 09:41:16 1997
@@ -158,10 +158,10 @@
 	&set_crlf("\r\n");
 	if ($part == 0) {
 		return 1 unless (&put_header(\*NNTPd, *Header, "nntp", "all"));
-		return 1 unless (&put_body(\*NNTPd, *Body, 1, 0));
+		return 1 unless (&put_body(\*NNTPd, *Body, 0, 0));
 	} else {
 		return 1 unless (&put_mimed_partial(\*NNTPd, *Header, *Body,
-		  "nntp", 1, $part, $total));
+		  "nntp", 0, $part, $total));
 	}
 	select (NNTPd); $| = 1; select (STDOUT);
 	return $rc if ($rc = &tcp_command(\*NNTPd, ".", 1));
diff -ur im-55.orig/IM.in/Smtp.pm.in im-55/IM.in/Smtp.pm.in
--- im-55.orig/IM.in/Smtp.pm.in	Wed Aug  6 10:51:27 1997
+++ im-55/IM.in/Smtp.pm.in	Fri Aug  8 09:41:53 1997
@@ -230,15 +230,15 @@
 	&set_crlf("\r\n");
 	if ($bcc) {
 		return 1 unless (&put_mimed_bcc(\*SMTPd, *Header, *Body, "smtp",
-		  1, $part, $total));
+		  0, $part, $total));
 	} else {
 		if ($part == 0) {
 			return 1
 			  unless (&put_header(\*SMTPd, *Header, "smtp", "all"));
-			return 1 unless (&put_body(\*SMTPd, *Body, 1, 0));
+			return 1 unless (&put_body(\*SMTPd, *Body, 0, 0));
 		} else {
 		return 1 unless (&put_mimed_partial(\*SMTPd, *Header, *Body,
-		  "smtp", 1, $part, $total));
+		  "smtp", 0, $part, $total));
 		}
 	}
 	select (SMTPd); $| = 1; select (STDOUT);
diff -ur im-55.orig/imput.in im-55/imput.in
--- im-55.orig/imput.in	Wed Aug  6 10:51:27 1997
+++ im-55/imput.in	Fri Aug  8 09:44:50 1997
@@ -1004,7 +1004,7 @@
 			if (&read_header("STDIN", *Header, 0) < 0) {
 				&error_exit;
 			}
-			&read_body("STDIN", *Body, 1);
+			&read_body("STDIN", *Body, 0);
 			unless ($Error_report_by_mail) {
 				last;
 			} else {
@@ -1095,7 +1095,7 @@
 	if (&read_header(\*READ, *Header, 0) < 0) {
 		&error_exit;
 	}
-	&read_body(\*READ, *Body, 0);
+	&read_body(\*READ, *Body, 1);
 	close(READ);
 }
 
@@ -1362,7 +1362,7 @@
 			return "";
 		}
 		unless (&put_header(\*FCC, *Header, "original")
-		 && &put_body(\*FCC, *Body, 0, 0)) {
+		 && &put_body(\*FCC, *Body, 1, 0)) {
 			im_debug("FCC write failed.\n") if (&debug("fcc"));
 			close(FCC);
 			unlink($err_remove) if ($err_remove);
@@ -1396,7 +1396,7 @@
 			unlink($err_remove) if ($err_remove);
 			return "";
 		}
-		if (!&put_mimed_partial(\*FCC, *Header, *Body, 0, $i, $total)) {
+		if (!&put_mimed_partial(\*FCC, *Header, *Body, 1, $i, $total)) {
 			im_debug("FCC partial write failed.\n")
 				if (&debug("fcc"));
 			close(FCC);
@@ -1623,7 +1623,7 @@
 
 		im_debug("reading message\n") if (&debug("queue"));
 		&read_header(\*QUEUE, *Header, 0);
-		&read_body(\*QUEUE, *Body, 0) if ($deliver);
+		&read_body(\*QUEUE, *Body, 1) if ($deliver);
 		close(QUEUE);
 
 		if ($deliver) {
@@ -1743,7 +1743,7 @@
 
 	&set_crlf("\n");
 	if (!&put_header(\*QUEUE, *Header, "all")
-	  || !&put_body(\*QUEUE, *Body, 0, 0)) {
+	  || !&put_body(\*QUEUE, *Body, 1, 0)) {
 		close(QUEUE);
 		unlink("$queue_dir/$max");
 		return 0;