diff options
| author | Arun Isaac | 2020-12-05 20:12:43 +0530 |
|---|---|---|
| committer | Arun Isaac | 2020-12-05 20:12:43 +0530 |
| commit | 7f53ca692724bddf5d12600b30b0f25634ce180d (patch) | |
| tree | 849e4bafa6c64158a572903a4b91dd7cd1bbc3fd /email | |
| parent | 20e1c2e0059ed9ba366126c1d7637cef19dfd7ce (diff) | |
| download | guile-email-7f53ca692724bddf5d12600b30b0f25634ce180d.tar.gz guile-email-7f53ca692724bddf5d12600b30b0f25634ce180d.tar.lz guile-email-7f53ca692724bddf5d12600b30b0f25634ce180d.zip | |
email: Give higher precedence to obsolete id-left, id-right patterns.
* email/email.scm (id-left, id-right): Give higher precedence to
obsolete patterns.
Diffstat (limited to 'email')
| -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 "<") |