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")))))