anchor.diff:           (url (with-input-from-string
                     (stream (upload-binary-file img-vector))
                   (read-line stream)))
  +         (caption (jget :caption (jget :message update)))
            (first-name
             (jget :first--name
                   (jget :from (jget :message update)))))
       (concatenate 'string
                    first-name ": "
  -                 "[ " url " ]")))
  +                 "[ " url " ] " (if caption caption ""))))
   
   (defun msgstr-tgreply->irc (update)
     "Transform only reply refer to irc, not text"
  +  (setf *reply-test* update)
     (let* ((too-long     40)
            (dummy-update `(,(cons
                              :message
  -                           (jget :message update))))
  +                           (jget
  +                            :reply--to--message
  +                            (jget :message update)))))
            (photo
             (if (tg-is-photo? dummy-update)
                 "[ photo ]" nil))
  
positive.code:           (if (tg-is-sticker? dummy-update)
                (msgstr-tgsticker->irc dummy-update)
                nil))
           (reply-to-text
            (remove-newline
             (with-output-to-string (out)
               (if photo (write-line photo out))
               (if file (write-line file out))
               (if sticker (write-line sticker out))
               (write-string
                (jget :text
                      (jget :reply--to--message
                            (jget :message update)))
                out)))))
      (if (= (tg-update-repliee-id update)
             *tg-bot-id*)
          nil ;; IRC msg or Bot info
          (setf reply-to-text
                (concatenate
                 'string
  
negative.code:                reply-to-text)))
        (concatenate 'string
                     (tg-update-repliee-first-name update)
                     ": "
                     "[ Re: " reply-to-text-cut " ]"))))
  
  (defun send-tg-message (str)
  