From c86d9ff9b19f1e88eed83a73704bb210f77d58de Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 4 Sep 2019 19:46:08 +0200
Subject: [PATCH] Fixed bug.

---
 lambdamail.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lambdamail.scm b/lambdamail.scm
index 92bbd12..bcd7a7e 100644
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -177,7 +177,7 @@
           (cond
            (dest
             (let ((dest-dir (cadr dest)))
-              (deliver-message-local msg dest-file))
+              (deliver-message-local msg dest-dir))
             (print "Message DELIVERED (local):"))
            (orig
             (let ((password (caddr orig)))
-- 
2.20.1