[bknr-cvs] hans changed trunk/projects/quickhoney/src/handlers.lisp

[BKNR Commits]

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 at 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