Changeset 18079 in project


Ignore:
Timestamp:
05/14/10 08:49:47 (9 years ago)
Author:
iraikov
Message:

improved mbox handling of addresses without domain part

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/mbox/trunk/mbox.scm

    r17405 r18079  
    3636        (import (prefix abnf abnf:)
    3737                (prefix abnf-consumers abnf:)
    38                 (only internet-message addr-spec date-time fields)
     38                (only internet-message addr-spec date-time fields ftext)
    3939                )
    4040
     
    158158(define address
    159159  (abnf:bind-consumed-pairs->list 'address
    160     addr-spec))
     160    (abnf:alternatives
     161     addr-spec
     162     (abnf:bind-consumed-strings->list 'local-part
     163      (abnf:concatenation
     164       (abnf:bind-consumed->string
     165        (abnf:concatenation
     166         (abnf:repetition1 ftext)))
     167       (abnf:drop-consumed
     168        (abnf:repetition abnf:wsp)))))))
    161169 
    162170
     
    167175      (abnf:concatenation
    168176       (abnf:optional-sequence (abnf:char #\newline))
    169        (abnf:lit "From ")))
    170      address
     177       (abnf:lit "From ")
     178       ))
     179     address
    171180     (abnf:alternatives ctime abbrtime)
    172181     (abnf:drop-consumed abnf:lf))))
Note: See TracChangeset for help on using the changeset viewer.