From fe009713990809ba699ea1ed8138ee0d08982f8a Mon Sep 17 00:00:00 2001
From: Roman Volosovskyi <roman.wolosovskyi@gmail.com>
Date: Wed, 6 Oct 2021 14:46:52 +0300
Subject: [PATCH] [#12520] Sync deleted chats

---
 src/status_im/chat/models.cljs      | 38 ++++++++++++++++++++---------
 src/status_im/chat/models_test.cljs |  6 ++---
 status-go-version.json              |  6 ++---
 3 files changed, 32 insertions(+), 18 deletions(-)

diff --git a/src/status_im/chat/models.cljs b/src/status_im/chat/models.cljs
index 17947b352d..1e860088f9 100644
--- a/src/status_im/chat/models.cljs
+++ b/src/status_im/chat/models.cljs
@@ -46,7 +46,8 @@
    (community-chat? (get-chat cofx chat-id))))
 
 (defn active-chat? [cofx chat-id]
-  (not (nil? (get-chat cofx chat-id))))
+  (let [chat (get-chat cofx chat-id)]
+    (not (nil? chat))))
 
 (defn foreground-chat?
   [{{:keys [current-chat-id view-id]} :db} chat-id]
@@ -102,6 +103,13 @@
   (fn [val]
     (and (not (get-in db [:chats (:chat-id val)])) (:public? val))))
 
+(fx/defn leave-removed-chat
+  [{{:keys [view-id current-chat-id chats]} :db
+    :as cofx}]
+  (when (and (= view-id :chat)
+             (not (contains? chats current-chat-id)))
+    (navigation/navigate-back cofx)))
+
 (fx/defn ensure-chats
   "Add chats to db and update"
   [{:keys [db] :as cofx} chats]
@@ -118,11 +126,14 @@
                  :chats-home-list #{}
                  :removed-chats #{}}
                 (map (map-chats cofx) chats))]
-    {:db (-> db
-             (update :chats merge all-chats)
-             (update :chats-home-list set/union chats-home-list)
-             (update :chats #(apply dissoc % removed-chats))
-             (update :chats-home-list set/difference removed-chats))}))
+    (fx/merge
+     cofx
+     {:db (-> db
+              (update :chats merge all-chats)
+              (update :chats-home-list set/union chats-home-list)
+              (update :chats #(apply dissoc % removed-chats))
+              (update :chats-home-list set/difference removed-chats))}
+     leave-removed-chat)))
 
 (fx/defn clear-history
   "Clears history of the particular chat"
@@ -137,11 +148,14 @@
     {:db            (-> db
                         (assoc-in [:messages chat-id] {})
                         (update-in [:message-lists] dissoc chat-id)
-                        (update-in [:chats chat-id] merge
-                                   {:last-message              nil
-                                    :unviewed-messages-count   0
-                                    :unviewed-mentions-count   0
-                                    :deleted-at-clock-value    last-message-clock-value}))}))
+                        (update :chats (fn [chats]
+                                         (if (contains? chats chat-id)
+                                           (update chats chat-id merge
+                                                   {:last-message              nil
+                                                    :unviewed-messages-count   0
+                                                    :unviewed-mentions-count   0
+                                                    :deleted-at-clock-value    last-message-clock-value})
+                                           chats))))}))
 
 (fx/defn clear-history-handler
   "Clears history of the particular chat"
@@ -161,7 +175,7 @@
   (fx/merge
    cofx
    {:db (-> db
-            (assoc-in [:chats chat-id :is-active] false)
+            (update :chats dissoc chat-id)
             (update :chats-home-list disj chat-id)
             (assoc-in [:current-chat-id] nil))
     ::json-rpc/call [{:method "wakuext_deactivateChat"
diff --git a/src/status_im/chat/models_test.cljs b/src/status_im/chat/models_test.cljs
index 7e687cdef8..6995ba7d0e 100644
--- a/src/status_im/chat/models_test.cljs
+++ b/src/status_im/chat/models_test.cljs
@@ -48,9 +48,9 @@
     (testing "it deletes all the messages"
       (let [actual (chat/remove-chat cofx chat-id)]
         (is (= nil (get-in actual [:db :messages chat-id])))))
-    (testing "it sets a deleted-at-clock-value equal to the last message clock-value"
-      (let [actual (chat/remove-chat cofx chat-id)]
-        (is (= 10 (get-in actual [:db :chats chat-id :deleted-at-clock-value])))))))
+    #_(testing "it sets a deleted-at-clock-value equal to the last message clock-value"
+        (let [actual (chat/remove-chat cofx chat-id)]
+          (is (= 10 (get-in actual [:db :chats chat-id :deleted-at-clock-value])))))))
 
 (deftest multi-user-chat?
   (let [chat-id "1"]
diff --git a/status-go-version.json b/status-go-version.json
index d621961e5c..5b26b68627 100644
--- a/status-go-version.json
+++ b/status-go-version.json
@@ -3,7 +3,7 @@
     "_comment": "Instead use: scripts/update-status-go.sh <rev>",
     "owner": "status-im",
     "repo": "status-go",
-    "version": "v0.89.6",
-    "commit-sha1": "7701368b142ad073f76d678095114b1388cce4b3",
-    "src-sha256": "0cgl5vhbn943sbzxzrnmpipxgyvlp4p3k96m5qp86cpw40rnhv9w"
+    "version": "v0.89.7",
+    "commit-sha1": "4de912babad60c8ac556277ffc79026fc4cabdc4",
+    "src-sha256": "17lkgq6rciq1snnxjflxy6wqianyi0wkgjdk6rplz5yy2y91rv7v"
 }