Repair config key usage
This commit is contained in:
parent
6d42a5ea87
commit
3dd7c80de9
|
@ -31,9 +31,11 @@
|
||||||
(send-account-registration-email! email)))
|
(send-account-registration-email! email)))
|
||||||
|
|
||||||
(define (sender-address)
|
(define (sender-address)
|
||||||
(or (@ (config) user-directory)
|
(or (@ (config) email-sender-address)
|
||||||
"pkgs@racket-lang.org"))
|
"pkgs@racket-lang.org"))
|
||||||
|
|
||||||
|
(log-racket-pkg-website/users-info "Will use sender address ~v" (sender-address))
|
||||||
|
|
||||||
(define (send-password-reset-email! email)
|
(define (send-password-reset-email! email)
|
||||||
(log-racket-pkg-website/users-info "Sending password reset email to ~v" email)
|
(log-racket-pkg-website/users-info "Sending password reset email to ~v" email)
|
||||||
(send-mail-message
|
(send-mail-message
|
||||||
|
|
Loading…
Reference in New Issue
Block a user