[add] Support for messageChatJoinByRequest messages

Fixes zevlg#412
akater · Apr 11, 2023 · b7438f8 · b7438f8
1 parent 2cf7490
commit b7438f8
Show file tree

Hide file tree

Showing 2 changed files with 40 additions and 22 deletions.
diff --git a/etc/langs/en.plist b/etc/langs/en.plist
@@ -160,6 +160,12 @@ Example: 23 y.o. designer from San Francisco")
   :value "{from} joined the group")
  ("lng_action_user_joined_by_link"
   :value "{from} joined the group via invite link")
+ ("lng_action_user_joined_by_request"
+  :value "{from} was accepted to the group")
+ ("lng_action_you_joined_by_request"
+  :value "Your request to join the group was approved")
+ ("lng_action_you_joined_by_request_channel"
+  :value "Your request to join the channel was approved")
  ("lng_action_user_left"
   :value "{from} left the group")
  ("lng_action_add_user"

diff --git a/telega-ins.el b/telega-ins.el
@@ -1428,28 +1428,38 @@ If NO-THUMBNAIL-P is non-nil, then do not insert thumbnail."
 (defun telega-msg-special-p (msg)
   "Return non-nil if MSG is special."
   (memq (telega--tl-type (plist-get msg :content))
-        (list 'messageContactRegistered 'messageChatAddMembers
-              'messageChatJoinByLink 'messageChatDeleteMember
-              'messageChatChangeTitle 'messageSupergroupChatCreate
-              'messageBasicGroupChatCreate 'messageCustomServiceAction
-              'messageChatSetTtl 'messageExpiredPhoto 'messageExpiredVideo
-              'messageChatChangePhoto 'messageChatDeletePhoto
-              'messageChatUpgradeTo 'messageChatUpgradeFrom
-              'messagePinMessage 'messageScreenshotTaken
-              'messageGameScore
-              'messageProximityAlertTriggered
-              'messageVideoChatScheduled
-              'messageVideoChatStarted
-              'messageVideoChatEnded
-              'messageInviteVideoChatParticipants
-              'messageWebsiteConnected
-              'messageChatSetTheme
-              'messageChatSetMessageAutoDeleteTime
-              'messagePaymentSuccessful
-              'messageForumTopicCreated
-              'messageForumTopicEdited
-              'messageForumTopicIsClosedToggled
-              'telegaInternal)))
+        '(messageContactRegistered
+          messageChatAddMembers
+          messageChatJoinByLink
+          messageChatJoinByRequest
+          messageChatDeleteMember
+          messageChatChangeTitle
+          messageSupergroupChatCreate
+          messageBasicGroupChatCreate
+          messageCustomServiceAction
+          messageChatSetTtl
+          messageExpiredPhoto
+          messageExpiredVideo
+          messageChatChangePhoto
+          messageChatDeletePhoto
+          messageChatUpgradeTo
+          messageChatUpgradeFrom
+          messagePinMessage
+          messageScreenshotTaken
+          messageGameScore
+          messageProximityAlertTriggered
+          messageVideoChatScheduled
+          messageVideoChatStarted
+          messageVideoChatEnded
+          messageInviteVideoChatParticipants
+          messageWebsiteConnected
+          messageChatSetTheme
+          messageChatSetMessageAutoDeleteTime
+          messagePaymentSuccessful
+          messageForumTopicCreated
+          messageForumTopicEdited
+          messageForumTopicIsClosedToggled
+          telegaInternal)))
 
 (defun telega-ins--special-replied-msg (msg &optional _attrs)
   "Inserter for the MSG's dependent message in context of special message."
@@ -1506,6 +1516,8 @@ Special messages are determined with `telega-msg-special-p'."
                               ", ")))))
       (messageChatJoinByLink
        (telega-ins-i18n "lng_action_user_joined_by_link" :from sender-name))
+      (messageChatJoinByRequest
+       (telega-ins-i18n "lng_action_user_joined_by_request" :from sender-name))
       (messageChatDeleteMember
        (let* ((user (telega-user-get (plist-get content :user_id)))
               (user-name (propertize (telega-msg-sender-title user t)