Load sender address from configuration.

src/reminders.scm

@@ -28,7 +28,6 @@
 (module
  reminders
  (
-  *reminder-from*
   make+print-reminder-email
   make+send-reminder-email
   )
@@ -41,10 +40,8 @@
 	 util-dict-list
 	 members-payments
 	 util-format
-	 brmember-format)
-
- ;; From address
- (define *reminder-from* (make-parameter "Brmlab - Rada <rada@brmlab.cz>"))
+	 brmember-format
+	 configuration)
 
  ;; Creates reminder email body
  (define (reminder-email-body mr)
@@ -101,7 +98,7 @@
    (let ((em (make-reminder-email mr)))
      (print "Sending " (ldict-ref em 'subject) " originally to " (ldict-ref em 'to))
      (send-mail (ldict-ref em 'body)
-		#:from (*reminder-from*)
+		#:from (*email-from*)
 		#:to "joe@joe.cz"
 		#:subject (ldict-ref em 'subject))))