diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-01-30 04:27:32 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-01-30 04:27:32 +0000 |
| commit | 8aedfca3f9aadfe557c953a7048d16558e700f9e (patch) | |
| tree | 963f414066c1b4dbe2d1c93a2462a3732e948449 | |
| parent | [w3m-dev 02929] Re: fixed w3mmail.cgi (diff) | |
| download | w3m-8aedfca3f9aadfe557c953a7048d16558e700f9e.tar.gz w3m-8aedfca3f9aadfe557c953a7048d16558e700f9e.zip | |
[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
From: Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
Diffstat (limited to '')
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rwxr-xr-x | scripts/w3mmail.cgi.in | 6 |
2 files changed, 10 insertions, 4 deletions
@@ -1,5 +1,11 @@ 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 * file.c (openPagerBuffer): use content_charset as document_code * file.c (getNextPage): code is document_code or DocumentCode @@ -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 $ diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in index 48aa567..8110130 100755 --- a/scripts/w3mmail.cgi.in +++ b/scripts/w3mmail.cgi.in @@ -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); |