The Lambda Lab
/
projects
/
lambdamail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Formatting improvement.
[lambdamail.git]
/
lambdamail.scm
diff --git
a/lambdamail.scm
b/lambdamail.scm
index
90c186f
..
07b1451
100644
(file)
--- a/
lambdamail.scm
+++ b/
lambdamail.scm
@@
-198,6
+198,7
@@
(print-error-message o)
#t)))
(print-error-message o)
#t)))
+
;; Local delivery
(define (get-local-addresses config)
;; Local delivery
(define (get-local-addresses config)
@@
-220,6
+221,7
@@
(print "* MESSAGE DELIVERED (local)")
#t)
(print "* MESSAGE DELIVERED (local)")
#t)
+
;; Remote delivery
(define (get-domain-from-email email-string)
;; Remote delivery
(define (get-domain-from-email email-string)
@@
-283,6
+285,7
@@
'(("\n" . "\r\n")))))
(write-string processed-string #f tcp-out)))))
'(("\n" . "\r\n")))))
(write-string processed-string #f tcp-out)))))
+
;;; Command line argument parsing
;;
;;; Command line argument parsing
;;