;; -*- lexical-binding: t; -*-

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


(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 "personal"
                     (directory "~/.ml/personal")
                     (gnus-search-engine gnus-search-notmuch
                                         (remove-prefix "~/.ml/personal")))
          (nnmaildir "umass"
                     (directory "~/.ml/umass")
                     (gnus-search-engine gnus-search-notmuch
                                         (remove-prefix "~/.ml/umass")))
          (nnmaildir "gmail"
                     (directory "~/.ml/gmail")
                     (gnus-search-engine gnus-search-notmuch
                                         (remove-prefix "~/.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"))

(require 'gnus-dired)