(with-eval-after-load 'telega
  (dolist (key (mapcar #'car telega-date-format-alist))
    (add-to-list 'telega-date-format-alist
                 (cons key
                       (if (eq key 'today)
                           "%H:%M"
                         "%Y-%m-%d %a %H:%M")))))