[Mew-dist 344] Re: impost-0.96 (is a X'mas present :-)

[NAKAMURA Motonori]

>>>>> On Tue, 24 Dec 1996 09:59:09 +0900, NAKAMURA Motonori <motonori at example.com> said:

|> 0.96 をリリースします。

|> * folding algorithm をちょっとだけ直した

どうも、このせいで、Header:Value のように、: の直後にスペースが
入らないという問題が出ているようです。これを修正したものを、
0.96+ として置いておきました。短いのでパッチをつけておきます。

- motonori

*** impost-0.96	Tue Dec 24 09:49:39 1996
--- impost-0.96+	Tue Dec 24 19:57:57 1996
***************
*** 5,11 ****
  
  #	IMPOST: An Internet Message Posting Frontend
  
! $Version = "impost version 0.96 (Dec. 24, 1996)";
  
  #	Copyright(c)1995,1996 by Motonori Nakamura <motonori at example.com>
  
--- 5,11 ----
  
  #	IMPOST: An Internet Message Posting Frontend
  
! $Version = "impost version 0.96+ (Dec. 24, 1996)";
  
  #	Copyright(c)1995,1996 by Motonori Nakamura <motonori at example.com>
  
***************
*** 461,468 ****
  				"$Body_encoding");
  		}
  	}
! 	if ($#Body >= 0 && !&header_value("Lines")) {
! 		&add_header(1, "Lines", $#Body);
  	}
  	if ($Lines_to_partial > 0 && $#Body > $Lines_to_partial) {
  		$partial_total
--- 461,472 ----
  				"$Body_encoding");
  		}
  	}
! 	if (!&header_value("Lines")) {
! 		if ($#Body >= 0) {
! 			&add_header(1, "Lines", $#Body);
! 		} else {
! 			&add_header(1, "Lines", '0');
! 		}
  	}
  	if ($Lines_to_partial > 0 && $#Body > $Lines_to_partial) {
  		$partial_total
***************
*** 2253,2258 ****
--- 2257,2264 ----
  			local ($newsgroups) = $';
  			$newsgroups =~ s/[ \t]//g;
  			$Header[$i] = "Newsgroups: $newsgroups";
+ 		} elsif (/^([\w-]+):(\S)/) {
+ 			$Header[$i] = "$1: $2$'";
  		}
  	}
  }
***************
*** 2334,2340 ****
  #
  sub hdr_cat {
  	local ($str1, $str2, $space) = @_;
! 	return $str2 if ($str1 eq "");
  	$str1 =~ /[^\n]*$/;
  	local ($l1) = length($&);
  	$str2 =~ /^[^\n]*/;
--- 2340,2349 ----
  #
  sub hdr_cat {
  	local ($str1, $str2, $space) = @_;
! 	if ($str1 eq "") {
! 		return $str2 if ($space eq "" || $space eq "any");
! 		return $space.$str2;
! 	}
  	$str1 =~ /[^\n]*$/;
  	local ($l1) = length($&);
  	$str2 =~ /^[^\n]*/;
***************
*** 2348,2358 ****
  		}
  	}
  	$space = " " if ($space eq "any");
! 	if ($space ne "") {
! 		return $str1.$space.$str2;
! 	} else {
! 		return $str1.$str2;
! 	}
  }
  
  ##### PICK UP RECIPIENTS FROM HEADER #####
--- 2357,2363 ----
  		}
  	}
  	$space = " " if ($space eq "any");
! 	return $str1.$space.$str2;
  }
  
  ##### PICK UP RECIPIENTS FROM HEADER #####
***************
*** 3001,3007 ****
  			$c = "jis";
  		}
  		if ($c eq "jis") {
! 			$Header[$i] =~ /^[\w-]+:/;
  			$field_name = $&;
  			$field_value = $';
  			if ($field_name =~ /^To:/i
--- 3006,3012 ----
  			$c = "jis";
  		}
  		if ($c eq "jis") {
! 			$Header[$i] =~ /^[\w-]+:\s*/;
  			$field_name = $&;
  			$field_value = $';
  			if ($field_name =~ /^To:/i