((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)
(loop msg received-messages))
(else
(smtp-session 'send "502 command not implemented")
- (loop msg received-messages)))))))
+ (loop msg received-messages))))))
+ '())
;;; Sending/Delivering messages
;;
(define (deliver-messages config messages)
- (print "**** Attempting delivery of " (length messages) " mail items.")
+ (print "*** Attempting delivery of " (length messages) " mail items.")
(filter (lambda (msg) (not (deliver-message msg config)))
messages))
(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
;;