summaryrefslogtreecommitdiff
path: root/init
diff options
context:
space:
mode:
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)