Prepare for sending emails.

src/hackerbase.scm

@@ -342,7 +342,9 @@
 	       (print "  " (car keys) ": " (length (ldict-ref status (car keys)))))
 	     (loop (cdr keys)))))))
   ((summary)
-   (make+print-summary-email MB))
+   (if (-send-emails-)
+       (make+send-summary-email MB)
+       (make+print-summary-email MB)))
   (else
    (print "Nothing to do."))
   

src/notifications.scm

@@ -32,6 +32,7 @@
   make+send-reminder-email
 
   make+print-summary-email
+  make+send-summary-email
   )
 
  (import scheme
@@ -174,8 +175,14 @@
 			  (today/iso)))
       (body . ,(summary-email-body mb)))))
 
+ ;; Just print to standard output
  (define (make+print-summary-email mb)
    (let ((em (make-summary-email mb)))
      (print-notification-email em)))
 
+ ;; Actually send emails
+ (define (make+send-summary-email mr)
+   (let ((em (make-summary-email mr)))
+     (send-notification-email em)))
+
  )