summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAmin Bandali <bandali@gnu.org>2018-11-07 23:15:19 -0500
committerAmin Bandali <bandali@gnu.org>2018-11-07 23:17:27 -0500
commit4cf3b363c05dfeb1fccc4414be2b2454428c6f33 (patch)
tree3ecd8446dd079d373acea6b123e3a8d12ee45b64
parenta9674790d13a981cb95e4608765c843861e2c368 (diff)
downloadconfigs-4cf3b363c05dfeb1fccc4414be2b2454428c6f33.tar.gz
configs-4cf3b363c05dfeb1fccc4414be2b2454428c6f33.tar.xz
configs-4cf3b363c05dfeb1fccc4414be2b2454428c6f33.zip
[emacs/gnus] bindings and posting styles fixes
Diffstat (limited to '')
-rw-r--r--init.org34
1 files 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")))