diff options
author | 2018-06-05 08:36:53 -0700 | |
---|---|---|
committer | 2018-06-05 08:36:53 -0700 | |
commit | 3e303fe70f0231b029ce431268f81535b1c3b436 (patch) | |
tree | 30bfc33b0e9d735865e86c87a2c53d7c24db7599 /emacs/.emacs.d/init/oni-gnus-init.el | |
parent | 61496a0b817e54d6b67e0ac09ab0fb1611bad9f3 (diff) | |
download | new-dotfiles-3e303fe70f0231b029ce431268f81535b1c3b436.tar.gz new-dotfiles-3e303fe70f0231b029ce431268f81535b1c3b436.zip |
Extract all lisp code from the org document
Diffstat (limited to 'emacs/.emacs.d/init/oni-gnus-init.el')
-rw-r--r-- | emacs/.emacs.d/init/oni-gnus-init.el | 53 |
1 files changed, 53 insertions, 0 deletions
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"))))) |