aboutsummaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
authorArun Isaac2020-12-05 20:12:43 +0530
committerArun Isaac2020-12-05 20:12:43 +0530
commit7f53ca692724bddf5d12600b30b0f25634ce180d (patch)
tree849e4bafa6c64158a572903a4b91dd7cd1bbc3fd /email
parent20e1c2e0059ed9ba366126c1d7637cef19dfd7ce (diff)
downloadguile-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.scm4
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 "<")