1 (define message-grammar
30 us-texts ; for UNSTRUCTURED
31 us-wsp ; for UNSTRUCTURED
32 us-fold ; for UNSTRUCTURED
64 (start (tag-mailbox gap mailbox) : ()
65 (tag-mailbox* gap mailbox*) : ()
66 (tag-mailbox+ gap mailbox+) : ()
67 (tag-address* gap address*) : ()
68 (tag-address+ gap address+) : ()
69 (tag-phrase* gap phrase*) : ()
70 (tag-phrase-msg-id* gap phrase-msg-id*) : ())
73 (address+ (address) : ()
74 (address+ comma-gap address) : ())
75 (address (mailbox) : ()
77 (addr-spec (local-part at-gap domain) : ())
78 (date (atom-gap atom-gap atom-gap) : ())
79 (date-time (atom-gap comma-gap date time) : ()
81 (domain (sub-domain) : ()
82 (domain dot-gap sub-domain) : ())
83 (domain-ref (atom-gap) : ())
84 (group (phrase colon-gap mailbox* semicolon-gap) : ())
85 (hour (atom-gap colon-gap atom-gap) : ()
86 (atom-gap colon-gap atom-gap colon-gap atom-gap): ())
87 (local-part (word) : ()
88 (local-part dot-gap word) : ())
89 (mailbox (addr-spec) : ()
90 (phrase route-addr) : ()
94 (mailbox+ (mailbox) : ()
95 (mailbox+ comma-gap mailbox) : ())
96 (month (atom-gap) : ())
97 (msg-id (lt-gap addr-spec gt-gap) : ())
98 (phrase (phrase-c) : (ew-mark-phrase $1 $look))
100 (phrase-c word) : $1)
101 (route (at-domain+ colon-gap) : ())
102 (at-domain+ (at-gap domain) : ()
103 (at-domain+ comma-gap at-gap domain) : ())
104 (route-addr (lt-gap route/ addr-spec gt-gap) : ())
107 (sub-domain (domain-ref) : ()
108 (domain-literal-gap) : ())
109 (time (hour zone) : ())
110 (word (atom-gap) : $1
111 (quoted-string-gap) : $1)
112 (zone (atom-gap) : ())
117 (phrase+ (phrase) : ()
118 (phrase+ comma-gap phrase) : ())
119 (phrase-msg-id* (phrase/) : ()
120 (phrase-msg-id* msg-id phrase/) : ())
121 (word1or2 (word) : ()
122 (word comma-gap word) : ())
127 (lt-gap (lt gap) : ())
128 (gt-gap (gt gap) : ())
129 (at-gap (at gap) : ())
130 (comma-gap (comma gap) : ())
131 (semicolon-gap (semicolon gap) : ())
132 (colon-gap (colon gap) : ())
133 (dot-gap (dot gap) : ())
134 (quoted-string-gap (quoted-string gap) : $1)
135 (domain-literal-gap (domain-literal gap) : ())
136 (atom-gap (atom gap) : $1)
137 (quoted-string (qs-begin qs qs-end) : $1)
144 (domain-literal (dl-begin dl dl-end) : ())
151 (comment (cm-begin cm cm-end) : ())
153 (cm cm-nested-begin) : ()
154 (cm cm-nested-end) : ()
163 (gen-lalr1 message-grammar "ew-parse.el"
167 "(put 'ew:cm-texts 'decode 'ew-decode-comment)
168 (put 'ew:cm-wsp 'decode 'ew-decode-comment)
169 (put 'ew:cm-fold 'decode 'ew-decode-comment)
170 (put 'ew:cm-qfold 'decode 'ew-decode-comment)
171 (put 'ew:cm-qpair 'decode 'ew-decode-comment)
172 (put 'ew:us-texts 'decode 'ew-decode-unstructured)
173 (put 'ew:us-wsp 'decode 'ew-decode-unstructured)
174 (put 'ew:us-fold 'decode 'ew-decode-unstructured)