diff options
| author | Arun Isaac | 2019-06-25 13:35:44 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-06-25 13:51:41 +0530 |
| commit | 8268c96427ff7fd218eb20cf739b394fe58dd5f9 (patch) | |
| tree | f679be6c7f1287728df7f44cfe9595cc29d154eb /email/email.scm | |
| parent | 31254d68a4c3f36d4343bd39476b0581c9eaad58 (diff) | |
| download | guile-email-8268c96427ff7fd218eb20cf739b394fe58dd5f9.tar.gz guile-email-8268c96427ff7fd218eb20cf739b394fe58dd5f9.tar.lz guile-email-8268c96427ff7fd218eb20cf739b394fe58dd5f9.zip | |
email: Fix typo in docstring of parse-mime-entity.
* email/email.scm (parse-mime-entity): Replace "a" with "an" in
docstring.
Diffstat (limited to 'email/email.scm')
| -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))))) |