diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-08 23:00:04 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 18:37:33 -0700 |
| commit | ed209a9217a083f95fdcda81790c16af0e5eaf94 (patch) | |
| tree | 3c492c20cbe04ecbce23253f9284c3ec936ee7c6 | |
| parent | 35249051fc14138b589fc8ad9ca8051c7f859c75 (diff) | |
| download | dotfiles-ed209a9217a083f95fdcda81790c16af0e5eaf94.tar.gz | |
move some Gnus bindings under 'v'
| -rw-r--r-- | .emacs.d/init.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 8db51271..87f22637 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -3004,6 +3004,8 @@ mutt's review view, after exiting EDITOR." (with-eval-after-load 'gnus-art (define-key gnus-mime-button-map "a" #'spw/gnus-mime-apply-part)) +;;; Bindings go under 'v' because that is reserved to Gnus users. + ;; There's an alternative to having a dedicated command for this described in ;; (info "(gnus) Security"), "Snarfing OpenPGP keys". (defun spw/gnus-import-gpg () @@ -3011,7 +3013,7 @@ mutt's review view, after exiting EDITOR." (gnus-summary-save-in-pipe "gpg --decrypt | gpg --import" t) (display-buffer "*Shell Command Output*")) (with-eval-after-load 'gnus-sum - (define-key gnus-summary-mode-map "\C-zg" #'spw/gnus-import-gpg)) + (define-key gnus-summary-mode-map "vg" #'spw/gnus-import-gpg)) (defun spw/gnus-reader () (interactive) @@ -3042,7 +3044,7 @@ mutt's review view, after exiting EDITOR." (spw/add-once-hook 'eww-after-render-hook #'eww-readable) (eww url)))))) (with-eval-after-load 'gnus-sum - (define-key gnus-summary-mode-map "\C-cgo" #'spw/gnus-reader)) + (define-key gnus-summary-mode-map "vo" #'spw/gnus-reader)) ;; In a group with patches, try to expunge messages not relevant for reviewing ;; those patches. Optional numeric prefix argument specifies the version of @@ -3068,8 +3070,7 @@ mutt's review view, after exiting EDITOR." ;; Would be good also to reinsert all unread messages. (gnus-summary-insert-ticked-articles)) (with-eval-after-load 'gnus-sum - (define-key gnus-summary-mode-map - "\C-cgf" #'spw/gnus-summary-limit-to-patches)) + (define-key gnus-summary-mode-map "vf" #'spw/gnus-summary-limit-to-patches)) (defun spw/org-gnus-follow-link (orig-fun &optional group article) (if (not article) |