;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/gnus/browse.el

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

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

(let ((kmap gnus-browse-mode-map))
  (disable-super-global-keys kmap)
  (set-vertical-keys         kmap)
  (set-close-key             kmap)
  (define-key kmap "s" #'gnus-browse-toggle-subscription-at-point) )

;; (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)

(provide 'browse)