1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in
index 30d098e..5602ee5 100755
--- a/scripts/w3mmail.cgi.in
+++ b/scripts/w3mmail.cgi.in
@@ -1,25 +1,25 @@
 #!@PERL@
 
-$rcsid = q$Id: w3mmail.cgi.in,v 1.4 2002/01/20 17:06:42 ukai Exp $;
+$rcsid = q$Id: w3mmail.cgi.in,v 1.5 2002/01/21 15:56:13 ukai Exp $;
 ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/;
 ($prog=$0) =~ s/.*\///;
 
 $query = $ENV{'QUERY_STRING'};
 $local_cookie = $ENV{'LOCAL_COOKIE'};
-$url = $query;
 $SENDMAIL = '/usr/lib/sendmail';
 $SENDMAIL = '/usr/sbin/sendmail' if -x '/usr/sbin/sendmail';
 $SENDMAIL_OPT = '-oi -t';
 
-$qurl = &html_quote($url);
-
 if ($query =~ s/^\w+://) {
+    $url = $query;
+    $qurl = &html_quote($url);
     $to = $query;
     $opt = '';
     if ($to =~ /^([^?]*)\?(.*)$/) {
 	$to = $1;
 	$opt = $2;
     }
+    $to = &url_unquote($to);
     %opt = &parse_opt($opt);
 
     @to = ($to);