diff options
| author | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:23:02 +0000 |
|---|---|---|
| committer | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:23:02 +0000 |
| commit | 6db339b3d7a391f196e7c4b725a4ed0bd00f31cf (patch) | |
| tree | 7d6fed976b72694d61fc595a745d394e1cd6e1a5 /scripts/w3mmail.cgi.in | |
| parent | Adding upstream version 0.5.1 (diff) | |
| download | w3m-6db339b3d7a391f196e7c4b725a4ed0bd00f31cf.tar.gz w3m-6db339b3d7a391f196e7c4b725a4ed0bd00f31cf.zip | |
Adding upstream version 0.5.2upstream/0.5.2
Diffstat (limited to 'scripts/w3mmail.cgi.in')
| -rwxr-xr-x | scripts/w3mmail.cgi.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in index 670f26c..02fabd8 100755 --- a/scripts/w3mmail.cgi.in +++ b/scripts/w3mmail.cgi.in @@ -1,6 +1,6 @@ #!@PERL@ -$rcsid = q$Id: w3mmail.cgi.in,v 1.13 2003/09/22 21:02:29 ukai Exp $; +$rcsid = q$Id: w3mmail.cgi.in,v 1.14 2004/08/30 16:32:24 ukai Exp $; ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/; ($prog=$0) =~ s/.*\///; @@ -180,6 +180,7 @@ if ($query =~ s/^\w+://) { } } ($cs,$cte,$body) = &lang_body($body, 1); + $body =~ s/\r//g; print MAIL "Mime-Version: 1.0\n"; if ($boundary) { print MAIL "Content-Type: multipart/form-data;\n"; |