about summary refs log tree commit diff
path: root/web/panettone/src/email.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'web/panettone/src/email.lisp')
-rw-r--r--web/panettone/src/email.lisp5
1 files changed, 3 insertions, 2 deletions
diff --git a/web/panettone/src/email.lisp b/web/panettone/src/email.lisp
index cb01c488a2a6..72b2e146b46a 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))))