TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[gnus] Fix wrong evilified macro

Browse source 
Seems that we have a lot of places where
evilified-state-evilify has been used
instead of evilified-state-evilify-map.

This causes issues with shadowing of
evilified maps as this is only done by
the later of those two.

Fixes #15150
This commit is contained in:
Maxi Wolff 2021-11-20 22:49:20 +01:00
parent f2755533de
commit 050221ee35
No known key found for this signature in database
GPG key ID: 2DD07025BFDBD89A
1 changed files with 26 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
layers/+email/gnus/packages.el
View file

@ -94,6 +94,7 @@
(require 'browse-url)
(require 'nnrss)
(defun spacemacs/gnus-flame-on ()
"Most important email function, for RFC1855 compliance."
;; https://tools.ietf.org/html/rfc1855
@ -102,6 +103,7 @@
(insert "FLAME OFF\n")
(forward-line -2)
(end-of-line))
(defun spacemacs/browse-nnrss-url (arg)
"Open RSS Article directy in the browser"
(interactive "p")
@ -117,16 +119,30 @@
(gnus-summary-scroll-up arg))))
(add-to-list 'nnmail-extra-headers nnrss-url-field)
(evilified-state-evilify gnus-group-mode gnus-group-mode-map
;; Use the more modern macro to enable shadowing
;; Make sure this is only run after the keymaps
;; have been loaded.
(with-eval-after-load 'gnus-group
(evilified-state-evilify-map gnus-group-mode-map
:mode gnus-group-mode
:bindings
(kbd "g r") 'gnus-group-get-new-news
(kbd "O") 'gnus-group-group-map)
(evilified-state-evilify gnus-server-mode gnus-server-mode-map)
(evilified-state-evilify gnus-browse-mode gnus-browse-mode-map)
(evilified-state-evilify gnus-article-mode gnus-article-mode-map)
(evilified-state-evilify gnus-summary-mode gnus-summary-mode-map
(kbd "O") 'gnus-group-group-map))
(with-eval-after-load 'gnus-srvr
(evilified-state-evilify-map gnus-server-mode-map
:mode gnus-server-mode)
(evilified-state-evilify-map gnus-browse-mode-map
:mode gnus-browse-mode))
(with-eval-after-load 'gnus-art
(evilified-state-evilify-map gnus-article-mode-map
:mode gnus-article-mode))
(with-eval-after-load 'gnus-sum
(evilified-state-evilify-map gnus-summary-mode-map
:mode gnus-summary-mode
:bindings
(kbd "J") 'gnus-summary-next-article
(kbd "K") 'gnus-summary-prev-article
(kbd "<RET>") 'spacemacs/browse-nnrss-url))))
(kbd "<RET>") 'spacemacs/browse-nnrss-url)))))
(defun gnus/post-init-window-purpose ()
(purpose-set-extension-configuration