summary refs log tree commit diff
path: root/email
diff options
context:
space:
mode:
Diffstat (limited to 'email')
-rw-r--r--email/email.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/email/email.scm b/email/email.scm
index a29a532..ff0f5e9 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -1,5 +1,5 @@
 ;;; guile-email --- Guile email parser
-;;; Copyright © 2018, 2019, 2020, 2021, 2023 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2018, 2019, 2020, 2021, 2023, 2025 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
 ;;; Copyright © 2023 Andrew Whatson <whatson@tailcall.au>
 ;;;
@@ -360,9 +360,9 @@
 ;; MUAs tend to pass on these non-standard names without any
 ;; quoting. Tolerate such names.
 
-;; Tolerate non-standard ( and ) in atext.
+;; Tolerate non-standard (, ), [ and ] in atext.
 (define-peg-pattern liberal-atext body
-  (or atext "(" ")"))
+  (or atext "(" ")" "[" "]"))
 
 (define-atom-pattern liberal-cfws-captured-atom cfws liberal-atext)
 (define-word-pattern liberal-cfws-captured-word liberal-cfws-captured-atom)