Link reminders module.

src/reminders.scm

@@ -50,7 +50,13 @@
 
  ;; Prints email to the console
  (define (print-reminder-email em)
-   (print em))
+   (print "### From: " (ldict-ref em 'from "-"))
+   (print "### To: " (ldict-ref em 'to))
+   (print "### Subject: " (ldict-ref em 'subject))
+   (let loop ((lines (ldict-ref em 'body)))
+     (when (not (null? lines))
+       (print (car lines))
+       (loop (cdr lines)))))
 
  ;; Creates and prints reminder email for given member record
  (define (make+print-reminder-email mr)