1 files changed, 16 insertions, 10 deletions

diff --git a/src/tg-types/message.lisp b/src/tg-types/message.lisp
index 028379f..c402af2 100644
--- a/src/tg-types/message.lisp
+++ b/src/tg-types/message.lisp
@@ -1,12 +1,19 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/tg-types/message
-  (:use :c2cl :ukkoclot/tg-types/macros
-
+  (:use
+   :c2cl
+   :ukkoclot/tg-types/animation
    :ukkoclot/tg-types/chat
+   :ukkoclot/tg-types/macros
    :ukkoclot/tg-types/message-entity
+   :ukkoclot/tg-types/photo-size
    :ukkoclot/tg-types/user)
   (:export
+   #:message-chat-id
+   #:message-thread-id
+   #:message-id
+
    #:message
    #:make-message
    #:message-p
@@ -34,11 +41,14 @@
    #:message-text
    #:message-entities
    #:message-effect-id
+   #:message-animation
+   #:message-photo
    #:message-caption
    #:message-show-caption-above-media
    #:message-has-media-spoiler
    #:message-new-chat-members
    #:message-new-chat-title
+   #:message-new-chat-photo
    #:message-delete-chat-photo
    #:message-group-chat-created
    #:message-supergroup-chat-created
@@ -46,11 +56,7 @@
    #:message-migrate-to-chat-id
    #:message-migrate-from-chat-id
    #:message-pinned-message
-   #:message-connected-website
-
-   #:message-chat-id
-   #:message-thread-id
-   #:message-id))
+   #:message-connected-website))
 (in-package :ukkoclot/tg-types/message)
 
 ;; If this is a MaybeInaccessibleMessage date will be 0 if this is inaccessible
@@ -86,11 +92,11 @@
   ;; (link-preview-options (or link-preview-options null) nil)
   ;; (suggested-post-info (or suggested-post-info null) nil)
   (effect-id (or string null) nil)
-  ;; (animation (or animation null) nil)
+  (animation (or animation null) nil)
   ;; (audio (or audio null) nil)
   ;; (document (or document null) nil)
   ;; (paid-media (or paid-media-info null) nil)
-  ;; (photo (or (array photo-size) null) nil)
+  (photo (or (array photo-size) null) nil)
   ;; (sticker (or sticker null) nil)
   ;; (story (or story null) nil)
   ;; (video (or video null) nil)
@@ -109,7 +115,7 @@
   (new-chat-members (or (array user) null) nil)
   ;; (left-chat-member (or user null) nil)
   (new-chat-title (or string null) nil)
-  ;; (new-chat-photo (or (array photo-size) null) nil)
+  (new-chat-photo (or (array photo-size) null) nil)
   (delete-chat-photo boolean nil)
   (group-chat-created boolean nil)
   (supergroup-chat-created boolean nil)