http://issues.apache.org/SpamAssassin/show_bug.cgi?id=5179





------- Additional Comments From [EMAIL PROTECTED]  2007-02-15 11:28 -------
> -      $line =~ s/\r?$/\r\n/s;       # ensure \r\n ending
> +      $line =~ s/\r?$/\015\012/s;       # ensure \015\012 ending

Not to forget the two other cases of \r\n
few lines further down. Perhaps something like:

  # headers, line-by-line with \r\n endings, as per Mail::DKIM API
  # split lines, deleting endings and final empty line
  foreach my $line (split(/\r?\n/s, $header)) {
    $message->PRINT($line."\015\012");  # ensure true CR LF endings
  }
  $message->PRINT("\015\012");

  # body, line-by-line with CR LF endings
  eval {
    foreach my $line (@{$body}) {
      $line =~ s/\r?\n$/\015\012/s;   # ensure true CR LF endings
      $message->PRINT($line);
    }
  };




------- You are receiving this mail because: -------
You are the assignee for the bug, or are watching the assignee.

Reply via email to