From 3e303fe70f0231b029ce431268f81535b1c3b436 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 5 Jun 2018 08:36:53 -0700
Subject: Extract all lisp code from the org document

---
 emacs/.emacs.d/init/oni-gnus-init.el | 53 ++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 emacs/.emacs.d/init/oni-gnus-init.el

(limited to 'emacs/.emacs.d/init/oni-gnus-init.el')

diff --git a/emacs/.emacs.d/init/oni-gnus-init.el b/emacs/.emacs.d/init/oni-gnus-init.el
new file mode 100644
index 0000000..a3369e6
--- /dev/null
+++ b/emacs/.emacs.d/init/oni-gnus-init.el
@@ -0,0 +1,53 @@
+(require 'gnus)
+(require 'gnus-msg)
+(require 'mail-source)
+(require 'message)
+(require 'nnfolder)
+(require 'sendmail)
+
+(setq gnus-directory (locate-user-emacs-file "data/News")
+      gnus-article-save-directory gnus-directory
+      gnus-cache-directory gnus-directory
+      gnus-kill-files-directory gnus-directory)
+
+(setq mail-source-directory (locate-user-emacs-file "data/Mail")
+      message-directory mail-source-directory
+      nnfolder-directory mail-source-directory)
+
+(setq send-mail-function 'send-mail-send-it
+      message-send-mail-function 'message-send-mail-with-sendmail
+      sendmail-program "/usr/bin/msmtp")
+
+(setq gnus-novice-user nil)
+
+(defun oni-gnus-delete-forward (&optional n)
+  "Delete the article under point and move to the next one.
+Do this N times."
+  (interactive "p")
+  (dotimes (_ (or n 1))
+    (gnus-summary-delete-article)
+    (gnus-summary-next-subject 1)))
+
+(define-key gnus-summary-mode-map (kbd "M-d") #'oni-gnus-delete-forward)
+
+(setq gnus-group-line-format "%P%(%20G%): %-10s %S%p%B %5y %5T\n")
+
+(setq gnus-select-method
+      '(nnmaildir "ryuslash" (directory "~/documents/mail/ryuslash/")))
+
+(add-to-list 'gnus-posting-styles
+             '(".*"
+               (address "tom@ryuslash.org")
+               (eval (setq message-sendmail-extra-arguments
+                           '("-a" "ryuslash")))))
+
+(add-to-list 'gnus-secondary-select-methods
+             '(nnmaildir "gmail"
+                         (directory "~/documents/mail/gmail/")))
+
+(add-to-list 'gnus-posting-styles
+             '("gmail:"
+               (name "Tom Willemse")
+               (address "ryuslash@gmail.com")
+               (eval (setq message-sendmail-extra-arguments
+                           '("-a" "gmail")))))
-- 
cgit v1.2.3-54-g00ecf