From 1b0bce77e643906957c70a368b7e21fcd3ed201f Mon Sep 17 00:00:00 2001 From: sperber Date: Mon, 2 Sep 2002 08:47:32 +0000 Subject: [PATCH] Reformat multi-line IFs to have the consequent on a separate lines. --- scheme/lib/smtp.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/scheme/lib/smtp.scm b/scheme/lib/smtp.scm index a3bdf87..eee27ac 100644 --- a/scheme/lib/smtp.scm +++ b/scheme/lib/smtp.scm @@ -180,7 +180,8 @@ (let ((sock (socket-connect protocol-family/internet socket-type/stream host (:optional maybe-port "smtp")))) (receive (code text) (handle-smtp-reply sock) - (if (< code 400) sock + (if (< code 400) + sock (error "SMTP socket-open server-reply error" sock code text))))) ;; HELLO @@ -198,7 +199,8 @@ (lambda (message) ; MESSAGE is a string or an input port. (lambda (socket) (receive (code text) (send-DATA-msg socket) - (if (>= code 400) (values code text) ; Error. + (if (>= code 400) + (values code text) ; Error. ;; We got a positive acknowledgement for the DATA msg, ;; now send the message body. @@ -298,7 +300,8 @@ (reverse replies))) (receive (code line more?) (parse-smtp-reply ln) (let ((replies (cons line replies))) - (if more? (lp replies) + (if more? + (lp replies) (values code (reverse replies))))))))) ;;; Parse a line of SMTP reply. Return three values: @@ -350,7 +353,8 @@ (+ i 1))) count)))) - (values (if (zero? hits) s + (values (if (zero? hits) + s ;; Make a new string, and do the dot-stuffing copy. (let ((ns (make-string (+ hits slen)))) (let lp ((nl? (eqv? pchar #\newline))