prevent a user who is not a member of a community from pinning or unp…

…inning channel messages

src/status_im/contexts/chat/messenger/messages/drawers/view.cljs

@@ -93,6 +93,11 @@
       (rf/dispatch [:pin-message/send-pin-message
                     (assoc message-data :pinned message-not-pinned?)]))))
 
+(defn pin-or-unpin-message 
+  [community?]
+  (let [able-to-send-message? (rf/sub [:chats/able-to-send-message?])]
+    (or able-to-send-message? (not community?))))
+
 (defn get-actions
   [{:keys [outgoing content pinned-by outgoing-status deleted? deleted-for-me? content-type
            bridge-message]
@@ -131,7 +136,8 @@
        :id                  :copy}])
    ;; pinning images are temporarily disabled
    (when (and message-pin-enabled
-              (not= content-type constants/content-type-image))
+              (not= content-type constants/content-type-image) 
+              (pin-or-unpin-message community?))
      [{:type                :main
        :on-press            #(pin-message message-data)
        :label               (i18n/label (if pinned-by