From 8aedfca3f9aadfe557c953a7048d16558e700f9e Mon Sep 17 00:00:00 2001
From: Fumitoshi UKAI <ukai@debian.or.jp>
Date: Wed, 30 Jan 2002 04:27:32 +0000
Subject: [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>
---
scripts/w3mmail.cgi.in | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
(limited to 'scripts')
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);
--
cgit v1.2.3