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

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

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

revision 1.12 by wakaba, Wed Nov 13 08:08:52 2002 UTC revision 1.13 by wakaba, Sat Dec 28 08:45:50 2002 UTC
# Line 15  push @ISA, q(Message::Field::Structured) Line 15  push @ISA, q(Message::Field::Structured)
15    
16  %REG = %Message::Util::REG;  %REG = %Message::Util::REG;
17          $REG{news_control} = qr/^cmsg$REG{WSP}+/;          $REG{news_control} = qr/^cmsg$REG{WSP}+/;
18          $REG{prefix_fwd} = qr/(?i)Fwd?/;          $REG{prefix_fwd} = qr/(?i)(?:Fwd?|Forward)/;
19          $REG{prefix_list} = qr/[(\[][A-Za-z0-9._-]+[\x20:-]\d+[)\]]/;          $REG{prefix_list} = qr/[(\[][A-Za-z0-9._-]+[\x20:-]\d+[)\]]/;
20          $REG{M_prefix_list} = qr/[(\[]([A-Za-z0-9._-]+)[\x20:-](\d+)[)\]]/;          $REG{M_prefix_list} = qr/[(\[]([A-Za-z0-9._-]+)[\x20:-](\d+)[)\]]/;
21          $REG{M_was_subject} = qr/\([Ww][Aa][Ss][:\x09\x20]$REG{FWS}(.+?)$REG{FWS}\)$REG{FWS}$/;          $REG{M_was_subject} = qr/\([Ww][Aa][Ss][:\x09\x20]$REG{FWS}(.+?)$REG{FWS}\)$REG{FWS}$/;
# Line 30  push @ISA, q(Message::Field::Structured) Line 30  push @ISA, q(Message::Field::Structured)
30                  ## ! kou koku !                  ## ! kou koku !
31              |[!\x{FF01}] $REG{FWS} [\x{9023}\x{F99A}]\x{7D61}\x{65B9}\x{6CD5}\x{7121}\x{3057}? $REG{FWS} [!\x{FF01}]              |[!\x{FF01}] $REG{FWS} [\x{9023}\x{F99A}]\x{7D61}\x{65B9}\x{6CD5}\x{7121}\x{3057}? $REG{FWS} [!\x{FF01}]
32                  ## ! ren raku hou hou nashi !                  ## ! ren raku hou hou nashi !
33              |\x{672A}\x{627F}\x{8AFE}\x{5E83}[\x{543F}\x{544A}][\x{203B}\x{0FBF}]              |[\x{672A}\x{672B}] [\x09\x0A\x0D\x20\x{3000}]*
34                 \x{627F} [\x09\x0A\x0D\x20\x{3000}]*
35                 \x{8AFE} [\x09\x0A\x0D\x20\x{3000}]*
36                 \x{5E83} [\x09\x0A\x0D\x20\x{3000}]*
37                 [\x{543F}\x{544A}] [\x09\x0A\x0D\x20\x{3000}]* [\x{203B}\x{0FBF}]
38                  ## mi shou daku kou koku *                  ## mi shou daku kou koku *
39            /x;            /x;
40          } else {          } else {
41            $REG{prefix_re} = qr/(?i)Re|Sv/;            $REG{prefix_re} = qr/(?i)Re|Sv|Odp/;
42            $REG{prefix_advertisement} = qr/(?i)ADV?:/;            $REG{prefix_advertisement} = qr/(?i)ADV?:/;
43          }          }
44          $REG{prefix_general} = qr/((?:$REG{prefix_re}|$REG{prefix_fwd})\^?[\[\(]?\d*[\]\)]?[:>]$REG{FWS})+/x;          $REG{prefix_general} = qr/((?:$REG{prefix_re}|$REG{prefix_fwd})\^?[\[\(]?\d*[\]\)]?[:>]$REG{FWS})+/x;
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24