1 files changed, 8 insertions, 0 deletions
diff --git a/email/utils.scm b/email/utils.scm
index 984f07e..97c1b5a 100644
--- a/email/utils.scm
+++ b/email/utils.scm
@@ -35,6 +35,14 @@
             acons*
 	    alist-combine))
 
+(define-syntax-rule (not-end-let (var expr) body ...)
+  "Bind result of EXPR to VAR. If VAR is an end-of-file object, return
+it. Else, execute BODY."
+  (let ((var expr))
+    (if (eof-object? var)
+        var
+        (begin body ...))))
+
 (define (read-objects read-proc port)
   "Read all objects using READ-PROC from PORT and return them as a
 list."