Make from email address configurable on command-line.

src/hackerbase.scm

@@ -107,6 +107,8 @@
  (-quiet () "Suppress all output"
 	 (-quiet- #t)
 	 (*progress-quiet* #t))
+ (-from (email) "Sender email address"
+	(*reminder-from* email))
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))

src/reminders.scm

@@ -28,6 +28,7 @@
 (module
  reminders
  (
+  *reminder-from*
   make+print-reminder-email
   make+send-reminder-email
   )
@@ -42,6 +43,9 @@
 	 util-format
 	 brmember-format)
 
+ ;; From address
+ (define *reminder-from* (make-parameter "Brmlab - Rada <rada@brmlab.cz>"))
+
  ;; Creates reminder email body
  (define (reminder-email-body mr)
    (let ((C identity)
@@ -97,6 +101,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*)
 		#:to "joe@joe.cz"
 		#:subject (ldict-ref em 'subject))))