1 files changed, 65 insertions, 0 deletions
diff --git a/guix/kolwynia/home/bdunahu/files/.config/emacs/gnus.el b/guix/kolwynia/home/bdunahu/files/.config/emacs/gnus.el
new file mode 100644
index 0000000..8482ec9
--- /dev/null
+++ b/guix/kolwynia/home/bdunahu/files/.config/emacs/gnus.el
@@ -0,0 +1,65 @@
+;;; -*- 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