summaryrefslogtreecommitdiff
path: root/init
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2013-11-12 00:09:18 -0500
committerKyle Meyer <kyle@kyleam.com>2013-11-12 00:17:43 -0500
commitaff5f50846ecc692fef07078d93e1d37c51fa435 (patch)
tree590cb3a2166f9808c351bfac6e230de8418149bf /init
parent5c0104d51c12f7c0df294c10bf73fb92d916c7ff (diff)
downloademacs.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.
Diffstat (limited to 'init')
-rw-r--r--init/km-gnus.el18
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)