From c3735113113c7468f3797e81a52fff90507e0f9c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 23 Sep 2019 11:21:58 +0530
Subject: email: Add read-next-email-in-mbox docstring.

* email/email.scm (read-next-email-in-mbox): Add docstring.
---
 email/email.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'email')

diff --git a/email/email.scm b/email/email.scm
index 6ed285f..d6b4e7e 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -902,6 +902,8 @@ list of header keys and values."
         decoded-octets)))
 
 (define (read-next-email-in-mbox port)
+  "Read next email from PORT and return as a bytevector.  PORT is an
+input port reading an mbox file."
   ;; Read and discard From_ line
   (get-line-with-delimiter port)
   ;; Read the actual email
-- 
cgit v1.2.3