diff options
| -rw-r--r-- | email/email.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/email/email.scm b/email/email.scm index da2abf9..5df541c 100644 --- a/email/email.scm +++ b/email/email.scm @@ -509,13 +509,13 @@ local-part) (define-peg-pattern id-left body - (or dot-atom-text obs-id-left)) + (or obs-id-left dot-atom-text)) (define-peg-pattern obs-id-right body domain) (define-peg-pattern id-right body - (or dot-atom-text no-fold-literal obs-id-right)) + (or obs-id-right dot-atom-text no-fold-literal)) (define-peg-pattern msg-id all (and (ignore (? cfws)) (ignore "<") |