;; This file: http://user.it.uu.se/~embe8573/conf/emacs-init/gnus/browse.el

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

(let ((the-map gnus-browse-mode-map))
  (define-key the-map         "s" #'gnus-browse-unsubscribe-current-group)
  (disable-super-global-keys  the-map)
  (set-vertical-keys          the-map)
  (set-close-key              the-map) )

(defvar gnus-browse-font-lock-keywords
  '(("^K"                       . font-lock-builtin-face)
    ("\\([[:digit:]].*\\):"    (1 font-lock-function-name-face))
    ("\\(gmane\\.\\)\\(.*\\)"  (1 font-lock-comment-face)
                               (2 font-lock-variable-name-face) )
    ("\\(gwene\\.\\)\\(.*\\)"  (1 font-lock-constant-face)
                               (2 font-lock-type-face)) ))

;; (setq gnus-browse-mode-hook nil)
(defun gnus-browse-mode-hook-f ()
  (setq font-lock-defaults
        '(gnus-browse-font-lock-keywords t)) )
(add-hook 'gnus-browse-mode-hook #'gnus-browse-mode-hook-f)