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>
* [w3m-dev 02929] Re: fixed w3mmail.cgi
@@ -2399,4 +2405,4 @@
* release-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@
$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/;
($prog=$0) =~ s/.*\///;
@@ -242,7 +242,7 @@ sub lang_html_quote {
sub lang_header_default {
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?=";
} else {
return $h;
@@ -253,7 +253,7 @@ sub lang_body_default {
local($body, $_7bit) = @_;
if ($body =~ /[\x80-\xFF]/) {
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);
} else {
return ("iso-8859-1", "8bit", $body);