aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2019-06-25 13:35:44 +0530
committerArun Isaac2019-06-25 13:51:41 +0530
commit8268c96427ff7fd218eb20cf739b394fe58dd5f9 (patch)
treef679be6c7f1287728df7f44cfe9595cc29d154eb
parent31254d68a4c3f36d4343bd39476b0581c9eaad58 (diff)
downloadguile-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.
-rw-r--r--email/email.scm4
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)))))