small bug fixes
This commit is contained in:
+1
-1
@@ -26,7 +26,7 @@
|
||||
|
||||
|
||||
(define (mail-report ini subject report)
|
||||
(let-values (((from to server port user auth) (get-config ini)))
|
||||
(let-values (((from to server port user passwd) (get-config ini)))
|
||||
(let* ((hdr (standard-message-header from (list to) '() '() subject)))
|
||||
(smtp-send-message server from (list to) hdr
|
||||
(if (list? report) report (list report))
|
||||
|
||||
Reference in New Issue
Block a user