diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rwxr-xr-x | scripts/w3mmail.cgi.in | 14 | 
2 files changed, 13 insertions, 8 deletions
| @@ -1,5 +1,10 @@  2002-01-28  Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> +	* [w3m-dev 02919] no need of width +	* scripts/w3mmail.cgi.in: no need width=80 for header field name + +2002-01-28  Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> +  	* [w3m-dev 02919] wrong table width calculation  	* table.c (set_table_matrix0): refine width calculation @@ -2327,4 +2332,4 @@  	* release-0-2-1  	* import w3m-0.2.1 -$Id: ChangeLog,v 1.267 2002/01/28 14:42:30 ukai Exp $ +$Id: ChangeLog,v 1.268 2002/01/28 14:44:56 ukai Exp $ diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in index e888922..1dafac3 100755 --- a/scripts/w3mmail.cgi.in +++ b/scripts/w3mmail.cgi.in @@ -1,6 +1,6 @@  #!@PERL@ -$rcsid = q$Id: w3mmail.cgi.in,v 1.6 2002/01/27 18:59:58 ukai Exp $; +$rcsid = q$Id: w3mmail.cgi.in,v 1.7 2002/01/28 14:44:56 ukai Exp $;  ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/;  ($prog=$0) =~ s/.*\///; @@ -40,19 +40,19 @@ if ($query =~ s/^\w+://) {      print "<table>\n";      if ($opt{'from'}) {  	$v = &lang_html_quote($opt{'from'}); -	print "<tr><td width=80>From:<td>$v\n"; +	print "<tr><td>From:<td>$v\n";  	print "<input type='hidden' name='from' value=\"$v\">\n";  	delete $opt{'from'};      }      foreach $h ('to', 'cc', 'bcc', 'subject') {  	$v = &lang_html_quote($opt{$h}); -	print "<tr><td width=80>\u$h:<td><input type='text' name=\"$h\" value=\"$v\">\n"; +	print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v\">\n";  	delete $opt{$h};      }      foreach $h (keys %opt) {  	$qh = &html_quote($h);  	$v = &lang_html_quote($opt{$h}); -	print "<tr><td width=80>\u$h:<td>$v\n"; +	print "<tr><td>\u$h:<td>$v\n";  	print "<input type='hidden' name=\"$qh\" value=\"$v\">\n";      }      print "<tr><td colspan=2>\n"; @@ -114,17 +114,17 @@ if ($query =~ s/^\w+://) {  	print "<hr>\n";  	print "<table>\n";  	if ($opt{'from'}) { -	    print "<tr><td width=80>From:<td>$v{'from'}\n"; +	    print "<tr><td>From:<td>$v{'from'}\n";  	    print "<input type='hidden' name='from' value=\"$v\">\n";  	    delete $opt{'from'};  	}  	foreach $h ('to', 'cc', 'bcc', 'subject') { -	    print "<tr><td width=80>\u$h:<td><input type='text' name=\"$h\" value=\"$v{$h}\">\n"; +	    print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v{$h}\">\n";  	    delete $opt{$h};  	}  	foreach $h (keys %opt) {  	    $qh = &html_quote($h); -	    print "<tr><td width=80>\u$qh:<td>$v{$h}\n"; +	    print "<tr><td>\u$qh:<td>$v{$h}\n";  	    print "<input type='hidden' name=\"$qh\" value=\"$v\">\n";  	}  	print "<tr><td colspan=2>\n"; | 
