(when (load "tnt" t)
  (setq tnt-default-username "sachachua83")
  (setq tnt-beep-on-first-incoming-message 'current)
  )