+sub __buildquote_line {
+ my $self = shift;
+ my $p = shift;
+ my $t;
+ my $data = '';
+
+ while ($t = $p->get_tag('td', '/tr')) {
+ if ($t->[0] eq '/tr') {
+ return $data;
+ }
+ if (exists($t->[1]->{'colspan'})) {
+ return '';
+ }
+ $data .= $p->get_text('/td')
+ }
+}
+
+
+sub __buildquote_block {
+ my $self = shift;
+ my $p = shift;
+ my $t;
+ my $data;
+
+ while ($t = $p->get_tag('tr','/table')) {
+ if ($t->[0] eq '/table') {
+ return $data;
+ }
+ $data .= $self->__buildquote_line($p) . "\n";
+ }
+}
+