sub Quote {
   my($qdate,$qmessage,$repaste,$qname);
   if($2) {
      $qdate = get_date($3);
      $userset{$1}->[1] = '';
      loaduser($1);
      if($userset{$1}->[1] ne '') { $qname = qq~<a href="$scripturl,v=memberpanel,a=view,u=$1">$userset{$1}->[1]</a>~; }
         else { $qname = $1; }
      $quotedfrom = qq~$rtxt[22] <b>$qname</b>, $rtxt[23] <b>$qdate</b> $rtxt[21] <b><a href="$2" title="$rtxt[25]">$rtxt[26]</a></b>~;
      $qmessage = $4;
   } else {
      $quotedfrom = "<b>$rtxt[27]</b>";
      $qmessage = $1;
   }

   $repaste = qq~
<table bgcolor="$color{'border'}" width="95%" class="border" cellpadding="0" cellspacing="1" align="center">
 <tr>
  <td>
   <table cellpadding="8" cellspacing="0">
    <tr>
     <td rowspan="2" valign="top" bgcolor="$color{'win'}" class="win"><div style="font-size:50px; font-weight:bold; font-family:Times New Roman, Times, serif; position:relative; top:-10px">&#147;</div></td>
     <td bgcolor="$color{'win2'}" class="win2" valign="top" width="100%" align="center"><font size="1">$quotedfrom</font></td>
     <td rowspan="2" valign="bottom" bgcolor="$color{'win'}" class="win"><div style="font-size:50px; font-weight:bold; font-family:Times New Roman, Times, serif; position:relative; top:25px">&#148;</div></td>
    </tr><tr>
     <td bgcolor="$color{'win2'}" class="win2" valign="top" width="100%">$qmessage<br><br></td>
    </tr>
   </table>
  </td>
 </tr>
</table>
~;
   return($repaste);
}