((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-to msg) ";\n"
+ "\t" (time-stamp) "\n")))
(let ((text-line (smtp-session 'get-line)))
(if (string=? "." text-line)
(message-text-set! msg text)
(print-error-message o)
#t)))
+
;; Local delivery
(define (get-local-addresses config)
(print "* MESSAGE DELIVERED (local)")
#t)
+
;; Remote delivery
(define (get-domain-from-email email-string)
'(("\n" . "\r\n")))))
(write-string processed-string #f tcp-out)))))
+
;;; Command line argument parsing
;;