Log sending emails.

src/notifications.scm

@@ -51,7 +51,8 @@
 	 mbase
 	 members-print
 	 table
-	 bank-account)
+	 bank-account
+	 logging)
 
  ;; Prints email to the console
  (define (print-notification-email em)
@@ -65,7 +66,12 @@
 
  ;; Sends notification email - the dictionary representation
  (define (send-notification-email em)
-   (print "Sending " (ldict-ref em 'subject) " originally to " (ldict-ref em 'to))
+   (log-info "Sending ~A to ~A~A"
+	     (ldict-ref em 'subject)
+	     (ldict-ref em 'to)
+	     (if (*mailto-override*)
+		 (format " (overriden to ~A)" (*mailto-override*))
+		 ""))
    (send-mail (ldict-ref em 'body)
 	      #:from (*email-from*)
 	      #:to (ldict-ref em 'to)