From d0db4d953632df6930d22219d6b770aad2f2fdb9 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Thu, 5 Sep 2019 08:50:43 +0200 Subject: [PATCH] Fiddling with "received:" formatting. --- lambdamail.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lambdamail.scm b/lambdamail.scm index 07b1451..6061d3e 100644 --- a/lambdamail.scm +++ b/lambdamail.scm @@ -140,9 +140,9 @@ ((smtp-command? "data" line) (smtp-session 'send "354 intermediate") (let text-loop ((text (conc "Received: from " (smtp-session 'helo) "\n" - " by " (config-host config) "\n" - " for " (message-from msg) - "; " (time-stamp) "\n"))) + "\tby " (config-host config) "\n" + "\tfor " (message-from msg) ";\n" + "\t" (time-stamp) "\n"))) (let ((text-line (smtp-session 'get-line))) (if (string=? "." text-line) (message-text-set! msg text) -- 2.20.1