S2S: sharerCreateNoteF: If ctx is sharer-ticket of another user, store to inbox

src/Vervis/Federation/Discussion.hs

@@ -288,7 +288,14 @@ sharerCreateNoteF now shrRecip author body note = do
                                                             ]
                                                 remoteRecips <- insertRemoteActivityToLocalInboxes False ractid $ localRecipSieve' sieve False False localRecips
                                                 (sig,) <$> deliverRemoteDB_S (actbBL body) ractid sid sig remoteRecips
-                    else return $ Left "Context is a sharer-ticket of another sharer"
+                    else do
+                        let did = localTicketDiscuss lt
+                        _ <- traverse (getParent did) mparent
+                        mractid <- lift $ insertToInbox now author body ibid luCreate True
+                        return $ Left $
+                            case mractid of
+                                Nothing -> "Context is a sharer-ticket of another sharer, and I already have this activity in my inbox, doing nothing"
+                                Just _ -> "Context is a sharer-ticket of another sharer, just storing in my inbox"
             case mremotesHttp of
                 Left msg -> return msg
                 Right (sig, remotesHttp) -> do