From aff5f50846ecc692fef07078d93e1d37c51fa435 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 12 Nov 2013 00:09:18 -0500
Subject: 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.
---
 init/km-gnus.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

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)
-- 
cgit v1.2.3