Fixed bug.

diff --git a/lambdamail.scm b/lambdamail.scm
index 92bbd12..bcd7a7e 100644 (file)
--- 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)))