From 7f53ca692724bddf5d12600b30b0f25634ce180d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 5 Dec 2020 20:12:43 +0530
Subject: email: Give higher precedence to obsolete id-left, id-right patterns.

* email/email.scm (id-left, id-right): Give higher precedence to
obsolete patterns.
---
 email/email.scm | 4 ++--
 1 file 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 "<")
-- 
cgit v1.2.3