diff options
| author | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:21:03 +0000 |
|---|---|---|
| committer | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:21:03 +0000 |
| commit | 2d9ece8bcb1c76c3d6990b83b00019e171c759d7 (patch) | |
| tree | b29dca9667fe151b2f01262c5907281ad2c7e3e8 /scripts/w3mmail.cgi.in | |
| parent | Releasing debian version 0.5.1-4 (diff) | |
| download | w3m-2d9ece8bcb1c76c3d6990b83b00019e171c759d7.tar.gz w3m-2d9ece8bcb1c76c3d6990b83b00019e171c759d7.zip | |
Releasing debian version 0.5.1-5debian/0.5.1-5
Diffstat (limited to '')
| -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"; |