;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:


(require 'gnus)
(require 'gnus-util)

(keymap-set gnus-article-mode-map "r" #'gnus-summary-very-wide-reply)
(keymap-set gnus-summary-mode-map "r" #'gnus-summary-very-wide-reply)
(keymap-set gnus-article-mode-map "R" #'gnus-summary-very-wide-reply-with-original)
(keymap-set gnus-summary-mode-map "R" #'gnus-summary-very-wide-reply-with-original)

(setopt gnus-dbus-close-on-sleep t
        gnus-interactive-exit nil

        ;;news
        gnus-check-new-newsgroups nil
        gnus-large-newsgroup 200)

(setopt gnus-select-method '(nnnil ""))
(setopt gnus-secondary-select-methods
        '((nntp "news.gwene.org")
          (nnmaildir "admin"
                     (directory "~/.ml/admin"))
          (nnmaildir "personal"
                     (directory "~/.ml/personal"))
          (nnmaildir "umass"
                     (directory "~/.ml/umass"))
          (nnmaildir "gmail"
                     (directory "~/.ml/gmail"))))


(setopt gnus-face-3 'calendar-today
        gnus-face-4 'calendar-weekend-header
        gnus-face-5 'calendar-weekday-header)

(setopt gnus-summary-line-format
        (concat
         "%0{%U%R%z%}"
         "%4{%-11,11&user-date;%}"
         "  "
         "%2{%-20,20n%}" ;; name
         "  "
         " "
         "%5{%B%}"
         "%s\n"))

(setopt mml-secure-openpgp-encrypt-to-self t)

(require 'bd--mail) ;; (gitignored)


;;; gnus.el ends here