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 16838d9..20bf291 100644 --- a/email/email.scm +++ b/email/email.scm @@ -1,5 +1,5 @@ ;;; guile-email --- Guile email parser -;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of guile-email. ;;; @@ -768,7 +768,7 @@ message. Else, return a single <mime-entity> record." (make-mime-entity headers (parse-email-body headers body))))) (define (parse-email email) - "Parse string EMAIL and return result as a <email> record." + "Parse string EMAIL and return result as an <email> record." (let-values (((headers body) (email->headers+body email))) (let ((headers-alist (parse-email-headers headers))) (make-email headers-alist (parse-email-body headers-alist body))))) |