From 265f55cbffa28c28497b313877d627ccbc409a32 Mon Sep 17 00:00:00 2001 From: saturn Date: Mon, 4 Sep 2023 16:11:37 -0500 Subject: [PATCH] Remove crosspost link when a crosspost couldn't be retrieved. --- src/backend.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/backend.lisp b/src/backend.lisp index 84915eac..17a569be 100644 --- a/src/backend.lisp +++ b/src/backend.lisp @@ -770,7 +770,7 @@ (handler-bind ((error (lambda (condition) (declare (ignore condition)) (when hosted-here - (return post))))) + (return (remove :fm-crosspost post :key #'car)))))) (let* ((*current-site* (find-site (backend-magnum-crosspost-site backend))) (*current-backend* (site-backend *current-site*)) (*retrieve-crosspost* nil) -- 2.11.4.GIT