(require 'gnus-srvr)
(require 'super)
(require 'scroll)
(require 'close)

(let ((the-map gnus-server-mode-map))
  (define-key the-map         "o" #'gnus-server-open-server)
  (disable-super-global-keys  the-map)
  (set-vertical-keys          the-map)
  (set-close-key              the-map) )

(setq gnus-server-line-format "%3=%h: %w%30=%s\n")

(setq gnus-server-font-lock-keywords
      '(("(\\(agent\\))"   1 'gnus-server-agent)
        ("(\\(opened\\))"  1 'gnus-server-opened)
        ("(\\(closed\\))"  1 'gnus-server-closed)
        ("(\\(offline\\))" 1 'gnus-server-offline)
        ("(\\(denied\\))"  1 'gnus-server-denied)
        ("\\(.*:\\)\\(.*\\) "
         (2 'font-lock-comment-face))
         ))