storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[w3m-dev 02930] Re: fixed w3mmail.cgi

Browse Source 
* scripts/w3mmail.cgi.in (lang_header_default): [=_?] should be encoded
* scripts/w3mmail.cgi.in (lang_body_default): '=' should be encoded
From: Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2002-01-30 04:27:32 +00:00
parent 787eac219e
commit 8aedfca3f9
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@@ -1,3 +1,9 @@
2002-01-30 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
* [w3m-dev 02930] Re: fixed w3mmail.cgi
* scripts/w3mmail.cgi.in (lang_header_default): [=_?] should be encoded
* scripts/w3mmail.cgi.in (lang_body_default): '=' should be encoded
2002-01-30 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> 2002-01-30 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
* [w3m-dev 02929] Re: fixed w3mmail.cgi * [w3m-dev 02929] Re: fixed w3mmail.cgi
@@ -2399,4 +2405,4 @@
* release-0-2-1 * release-0-2-1
* import w3m-0.2.1 * import w3m-0.2.1
$Id: ChangeLog,v 1.274 2002/01/30 04:25:02 ukai Exp $ $Id: ChangeLog,v 1.275 2002/01/30 04:27:32 ukai Exp $

6
scripts/w3mmail.cgi.in
View File

@@ -1,6 +1,6 @@
#!@PERL@ #!@PERL@
$rcsid = q$Id: w3mmail.cgi.in,v 1.9 2002/01/29 17:16:35 ukai Exp $; $rcsid = q$Id: w3mmail.cgi.in,v 1.10 2002/01/30 04:27:32 ukai Exp $;
($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/; ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/;
($prog=$0) =~ s/.*\///; ($prog=$0) =~ s/.*\///;
@@ -242,7 +242,7 @@ sub lang_html_quote {
sub lang_header_default { sub lang_header_default {
local($h) = @_; local($h) = @_;
if ($h =~ s/([\x80-\xFF])/sprintf("=%02x", ord($1))/ge) { if ($h =~ s/([=_?\x80-\xFF])/sprintf("=%02x", ord($1))/ge) {
return "=?iso-8859-1?Q?$h?="; return "=?iso-8859-1?Q?$h?=";
} else { } else {
return $h; return $h;
@@ -253,7 +253,7 @@ sub lang_body_default {
local($body, $_7bit) = @_; local($body, $_7bit) = @_;
if ($body =~ /[\x80-\xFF]/) { if ($body =~ /[\x80-\xFF]/) {
if ($_7bit) { if ($_7bit) {
$body =~ s/([\x80-\xFF])/sprintf("=%02x", ord($1))/ge; $body =~ s/([=\x80-\xFF])/sprintf("=%02x", ord($1))/ge;
return ("iso-8859-1", "quoted-printable", $body); return ("iso-8859-1", "quoted-printable", $body);
} else { } else {
return ("iso-8859-1", "8bit", $body); return ("iso-8859-1", "8bit", $body);