/[suikacvs]/messaging/manakai/lib/Message/Field/MsgID.pm
Suika

Diff of /messaging/manakai/lib/Message/Field/MsgID.pm

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

revision 1.8 by wakaba, Sun Jun 16 10:42:06 2002 UTC revision 1.9 by wakaba, Sat Jul 13 09:27:35 2002 UTC
# Line 87  sub parse ($;$%) { Line 87  sub parse ($;$%) {
87        
88    $body = Message::Util::remove_wsp ($body);    $body = Message::Util::remove_wsp ($body);
89    if ($body =~ /$REG{M_addr_spec}/) {    if ($body =~ /$REG{M_addr_spec}/) {
90      ## BUG: <foo . bar@foo.example> is treated as <"foo . bar"@foo.example>
91      my %s = &{$self->{option}->{hook_decode_string}} ($self,      my %s = &{$self->{option}->{hook_decode_string}} ($self,
92                Message::Util::unquote_quoted_string ($1), type => 'quoted-string');                Message::Util::unquote_quoted_string ($1), type => 'quoted-string');
93      $self->{id_left} = $s{value};      $self->{id_left} = $s{value};
94      #my %s = &{$self->{option}->{hook_decode_string}} ($self,    ## Should we use Message::Field::Domain?
95      #          Message::Util::unquote_if_domain_literal ($2), type => 'domain');    ## BUG: <foo@foo . example> will broken... (M_addr_spec should be fixed)
     #$self->{id_right} = $s{value};  
96      $self->{id_right} = $2;      $self->{id_right} = $2;
97    }    }
98        
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24