Move Gnus configuration to emacs-config

2 files changed, 0 insertions, 54 deletions

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index f77b474..8195b4e 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -161,7 +161,6 @@
 ;;                         'face '(:family "Font Awesome" :height 0.75))))
 
 (with-eval-after-load 'elec-pair (load "oni-elec-pair-init"))
-(with-eval-after-load 'gnus (load "oni-gnus-init"))
 (with-eval-after-load 'ruby-mode (load "oni-ruby-init"))
 (with-eval-after-load 'scheme (load "oni-scheme-init"))
 (with-eval-after-load 'sh-mode (load "oni-sh-mode-init"))
diff --git a/emacs/.emacs.d/init/oni-gnus-init.el b/emacs/.emacs.d/init/oni-gnus-init.el
deleted file mode 100644
index a3369e6..0000000
--- a/emacs/.emacs.d/init/oni-gnus-init.el
+++ /dev/null
@@ -1,53 +0,0 @@
-(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")))))