(define-record config host port spool-dir user group)
(define-record message to from text user password)
(define-record config host port spool-dir user group)
(define-record message to from text user password)
(smtp-session 'send "quit"))))
(close-input-port tcp-in)
(close-output-port tcp-out)
(smtp-session 'send "quit"))))
(close-input-port tcp-in)
(close-output-port tcp-out)
progname " [-u/--user UID] [-g/--group GID] hostname [[port [spooldir]]\n"
"\n"
"The -u and -g options can be used to set the UID and GID of the process\n"
"following the creation of the TCP port listener (which often requires root)."))
progname " [-u/--user UID] [-g/--group GID] hostname [[port [spooldir]]\n"
"\n"
"The -u and -g options can be used to set the UID and GID of the process\n"
"following the creation of the TCP port listener (which often requires root)."))
(define (main)
(let ((progname (pathname-file (car (argv))))
(config (make-config "" 25 "/var/spool/mail" '() '())))
(define (main)
(let ((progname (pathname-file (car (argv))))
(config (make-config "" 25 "/var/spool/mail" '() '())))