diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2013-11-12 00:09:18 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2013-11-12 00:17:43 -0500 |
| commit | aff5f50846ecc692fef07078d93e1d37c51fa435 (patch) | |
| tree | 590cb3a2166f9808c351bfac6e230de8418149bf | |
| parent | 5c0104d51c12f7c0df294c10bf73fb92d916c7ff (diff) | |
| download | emacs.d-aff5f50846ecc692fef07078d93e1d37c51fa435.tar.gz | |
Move over some things from gnus.el
Some code was kept in gnus.el because gnus had not yet been initialized,
but now I'm just loading gnus in km-gnus.el.
| -rw-r--r-- | init/km-gnus.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/init/km-gnus.el b/init/km-gnus.el index 4751286..d257d69 100644 --- a/init/km-gnus.el +++ b/init/km-gnus.el @@ -16,6 +16,8 @@ (setq gnus-save-newsrc-file nil gnus-read-newsrc-file nil) +(require 'gnus) + (defun km/sync-mail () (interactive) (let ((bufname (get-buffer-create "*Mail sync*"))) @@ -39,6 +41,11 @@ (setq message-send-mail-function 'message-send-mail-with-sendmail sendmail-program "/usr/bin/msmtp") +;; Disable CC: to self in wide replies and stuff +(setq message-dont-reply-to-names gnus-ignored-from-addresses) + +(setq message-sendmail-envelope-from 'header) + (setq gnus-gcc-mark-as-read t) (setq message-citation-line-function 'message-insert-formatted-citation-line) @@ -185,3 +192,14 @@ NO-NUMBER is non-nil, the number of lines is not added." (kbd "C-c m S") '(lambda (beg end) (interactive "r") (km/snip-mail-quote beg end nil t))) + +(gnus-define-keys gnus-summary-mode-map + "j" gnus-summary-next-unread-article + ";" gnus-summary-universal-argument ;; mutt's tag + "e" gnus-summary-scroll-up) + +(gnus-define-keys gnus-group-mode-map + "e" gnus-topic-select-group) + +(gnus-define-keys gnus-article-mode-map + "e" shr-browse-url) |