From 4cf3b363c05dfeb1fccc4414be2b2454428c6f33 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Wed, 7 Nov 2018 23:15:19 -0500 Subject: [emacs/gnus] bindings and posting styles fixes --- init.org | 34 +++++++++++++++++++++++++--------- 1 file changed, 25 insertions(+), 9 deletions(-) diff --git a/init.org b/init.org index 0a9434c..c784100 100644 --- a/init.org +++ b/init.org @@ -1780,18 +1780,12 @@ Hopefully temporary. gnus-message-archive-group "nnimap:Sent" gnus-parameters '(("amin" - (display . 20) - (posting-style - ((header "to" "amin@aminb.org") - (address "amin@aminb.org")) - ((header "delivered-to" "gnu@aminb.org") - (address "bandali@gnu.org")))) + (display . 20)) ("uwaterloo" (display . 20) (posting-style (address "abandali@uwaterloo.ca") (gcc "\"nnimap+uwaterloo:Sent Items\"")))) - ;; gnus-init-file amin-gnus-init-file gnus-home-directory (no-littering-expand-var-file-name "gnus/") gnus-directory (no-littering-expand-var-file-name "gnus/News/") message-directory amin-maildir @@ -1822,18 +1816,40 @@ Hopefully temporary. (lapsed (progn (string-match " (.+" combined-lapsed) (match-string 0 combined-lapsed)))) - (concat local lapsed))))) + (concat local lapsed)))) + (bind-keys + :map gnus-article-mode-map + ("r" . gnus-article-reply-with-original) + ("R" . gnus-article-wide-reply-with-original))) (use-package gnus-sum + :bind (:map gnus-summary-mode-map + :prefix-map amin--gnus-summary-prefix-map + :prefix "v" + ("r" . gnus-summary-reply) + ("w" . gnus-summary-wide-reply) + ("v" . gnus-summary-show-raw-article)) :config (setq gnus-extra-headers (append gnus-extra-headers - '(List-Id X-RT-Originator)))) + '(List-Id X-RT-Originator))) + (bind-keys + :map gnus-summary-mode-map + ("r" . gnus-summary-reply-with-original) + ("R" . gnus-summary-wide-reply-with-original))) (use-package nnmail :config (setq nnmail-extra-headers (append nnmail-extra-headers '(List-Id X-RT-Originator)))) +(use-package gnus-msg + :config + (setq gnus-posting-styles + '(((header "delivered-to" "amin@aminb.org") + (address "amin@aminb.org")) + ((header "delivered-to" "gnu@aminb.org") + (address "bandali@gnu.org"))))) + (use-package mm-decode :config (setq mm-discouraged-alternatives '("text/html" "text/richtext"))) -- cgit v1.2.3-60-g2f50