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


(require 'pgg)
(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

        gnus-check-new-newsgroups nil
        gnus-large-newsgroup 200

	message-kill-buffer-on-exit t
        message-interactive t

        message-directory "/home/bdunahu/.ml/"

        message-send-mail-function 'message-send-mail-with-sendmail
        message-sendmail-f-is-evil 't
        sendmail-program "/home/bdunahu/.guix-home/profile/bin/msmtp"
        message-sendmail-extra-arguments '("--read-envelope-from"))

(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 "rss"
                     (directory "~/.ml/rss"))
          (nnmaildir "umass"
                     (directory "~/.ml/umass"))))


(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 message-from-style 'angles
        mml-secure-openpgp-encrypt-to-self t
        mml-secure-openpgp-sign-with-sender t)
(add-hook 'gnus-message-setup-hook 'mml-secure-message-sign-pgpmime)


;;; gnus.el ends here