Merge branch 'master' into master-ghc8107

src/Simplex/Chat/Protocol.hs

@@ -376,6 +376,11 @@ mcExtMsgContent = \case
   MCQuote _ c -> c
   MCForward c -> c
 
+isQuote :: MsgContainer -> Bool
+isQuote = \case
+  MCQuote {} -> True
+  _ -> False
+
 data LinkPreview = LinkPreview {uri :: Text, title :: Text, description :: Text, image :: ImageData, content :: Maybe LinkContent}
   deriving (Eq, Show, Generic)