X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lambdamail.git;a=blobdiff_plain;f=lambdamail.scm;fp=lambdamail.scm;h=07b14519b32214829b8572ea5df1c431934a7e72;hp=90c186f8e3afbe8b58cb4cff6f2face02fd59f92;hb=e982071ed143f6739aa23c39170789928bec6b86;hpb=68469a9c497a0a6f2b1c4715c26d0d6665f60391 diff --git a/lambdamail.scm b/lambdamail.scm index 90c186f..07b1451 100644 --- a/lambdamail.scm +++ b/lambdamail.scm @@ -198,6 +198,7 @@ (print-error-message o) #t))) + ;; Local delivery (define (get-local-addresses config) @@ -220,6 +221,7 @@ (print "* MESSAGE DELIVERED (local)") #t) + ;; Remote delivery (define (get-domain-from-email email-string) @@ -283,6 +285,7 @@ '(("\n" . "\r\n"))))) (write-string processed-string #f tcp-out))))) + ;;; Command line argument parsing ;;