diff options
Diffstat (limited to 'web/panettone/src/email.lisp')
| -rw-r--r-- | web/panettone/src/email.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/web/panettone/src/email.lisp b/web/panettone/src/email.lisp index cb01c488a2..72b2e146b4 100644 --- a/web/panettone/src/email.lisp +++ b/web/panettone/src/email.lisp @@ -41,8 +41,9 @@ values of `*smtp-server*', `*smtp-server-port*' and `*email-notification-from*'" "Sends an email notification to the user with DN with the given SUBJECT and MESSAGE, iff that user has not disabled email notifications" (when (user-has-email-notifications-enabled-p dn) - (when-let ((user (find-user-by-dn dn))) + (when-let* ((user (find-user-by-dn dn)) + (user-mail user)) (send-email-notification - :to (mail user) + :to user-mail :subject subject :message message)))) |