/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by wakaba, Tue May 14 13:50:11 2002 UTC revision 1.19 by wakaba, Wed May 15 07:31:28 2002 UTC
# Line 123  $DEFAULT{field_type} = { Line 123  $DEFAULT{field_type} = {
123                    
124          'list-software' => 'Message::Field::UA',          'list-software' => 'Message::Field::UA',
125          'user-agent'    => 'Message::Field::UA',          'user-agent'    => 'Message::Field::UA',
126            'resent-user-agent'     => 'Message::Field::UA',
127          server  => 'Message::Field::UA',          server  => 'Message::Field::UA',
128                    
129          ## A message id          ## A message id
# Line 158  for (qw(abuse-reports-to apparently-to a Line 159  for (qw(abuse-reports-to apparently-to a
159    reply-to resent-bcc    reply-to resent-bcc
160    resent-cc resent-to resent-from resent-sender return-path    resent-cc resent-to resent-from resent-sender return-path
161    return-receipt-to return-receipt-requested-to sender to x-abuse-reports-to    return-receipt-to return-receipt-requested-to sender to x-abuse-reports-to
162    x-admin x-approved    x-admin x-approved x-beenthere x-confirm-reading-to
   x-beenthere  
   x-confirm-reading-to  
163    x-complaints-to x-envelope-from x-envelope-sender    x-complaints-to x-envelope-from x-envelope-sender
164    x-envelope-to x-ml-address x-ml-command x-ml-to x-nfrom x-nto    x-envelope-to x-ml-address x-ml-command x-ml-to x-nfrom x-nto
165    x-rcpt-to x-sender x-x-sender))    x-rcpt-to x-sender x-x-sender))
166    {$DEFAULT{field_type}->{$_} = 'Message::Field::Address'}    {$DEFAULT{field_type}->{$_} = 'Message::Field::Addresses'}
167  for (qw(client-date date date-received delivery-date expires  for (qw(client-date date date-received delivery-date expires
168    expire-date nntp-posting-date posted posted-date received-date    expire-date nntp-posting-date posted posted-date received-date
169    reply-by resent-date    reply-by resent-date
# Line 484  sub _field_body ($$$) { Line 483  sub _field_body ($$$) {
483      unless ($body) {      unless ($body) {
484        $body = $type->new (-field_name => $name,        $body = $type->new (-field_name => $name,
485          -format => $self->{option}->{format},          -format => $self->{option}->{format},
486          -parse_all => $self->{option}->{parse_all},          -parse_all => $self->{option}->{parse_all});
         field_name => $name, format => $self->{option}->{format});  
487      } else {      } else {
488        $body = $type->parse ($body, -field_name => $name,        $body = $type->parse ($body, -field_name => $name,
489          -format => $self->{option}->{format},          -format => $self->{option}->{format},
490          -parse_all => $self->{option}->{parse_all},          -parse_all => $self->{option}->{parse_all});
          field_name => $name,format => $self->{option}->{format});  
491      }      }
492    }    }
493    $body;    $body;
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24