[contrib] [tdlib 1.8.21] rename messageForward* -> message* (#448)

* [contrib] [tdlib 1.8.21] rename messageForward* -> message*

* Keep messageForwardInfo

contrib/telega-adblock.el

@@ -229,7 +229,7 @@ an URL."
 (defun telega-adblock-msg-forwarded-p (msg)
   "Return non-nil if MSG is forwarded from another channel."
   (when-let ((fwd-origin (telega--tl-get msg :forward_info :origin))
-             (orig-chat-id (when (equal "messageForwardOriginChannel"
+             (orig-chat-id (when (equal "messageOriginChannel"
                                         (plist-get fwd-origin :@type))
                              (plist-get fwd-origin :chat_id))))
     ;; Allow self-forwards

contrib/telega-bridge-bot.el

@@ -473,7 +473,7 @@ Will update CHAT-ID MSG-ID when download completed."
               (body (cadr name-and-body))) ; skip if no body
     (let ((sender-id (telega-bridge-bot--update-user-info msg-id chat-id bot-id name)))
       ;; replace sender
-      (plist-put forward-info :origin (list :@type "messageForwardOriginUser" :sender_user_id sender-id))
+      (plist-put forward-info :origin (list :@type "messageOriginUser" :sender_user_id sender-id))
       ;; remove duplicated username in body
       (plist-put
        content :text

contrib/telega-emacs-stories.el

@@ -433,9 +433,9 @@ If STORY-MESSAGES is not specified, unview all story messages."
 Return featured chat id, if MSG is featured."
   (when-let* ((origin (telega--tl-get msg :forward_info :origin))
               (chat-id (cl-case (telega--tl-type origin)
-                         (messageForwardOriginChat
+                         (messageOriginChat
                           (plist-get origin :sender_chat_id))
-                         (messageForwardOriginChannel
+                         (messageOriginChannel
                           (plist-get origin :chat_id)))))
     (car (memq chat-id telega-emacs-stories--featured-chat-ids))))