Revision: 3834 Author: hans URL: http://bknr.net/trac/changeset/3834

fix mail sending.

U trunk/projects/quickhoney/src/handlers.lisp

Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-09-07 19:17:25 UTC (rev 3833) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-07 20:25:57 UTC (rev 3834) @@ -168,9 +168,9 @@ (with-query-params (from text) (cl-smtp:with-smtp-mail (smtp "localhost" "webserver@quickhoney.com" - (remove-duplicates (mapcar #'user-email - (or (owned-object-owner image) - (list (find-user "n") (find-user "p")))))) + (if (owned-object-owner image) + (list (user-email (owned-object-owner image))) + (mapcar (alexandria:compose #'user-email #'find-user) (list "n" "p")))) (cl-mime:print-mime smtp (make-instance