diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-05 21:49:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-05 21:49:32 +0200 |
| commit | 3ff29babbfa2f8b46848944629c1e047291e916b (patch) | |
| tree | 81b706a1856adc45c1a06ef4514a225e93489ee2 /lisp/gnus/spam.el | |
| parent | d30cbc1e3791ae9e713104ada3541b22ab63cefa (diff) | |
| download | emacs-3ff29babbfa2f8b46848944629c1e047291e916b.tar.gz | |
Convert more parts of Gnus from `gnus-define-keys' to `define-keymap'
* lisp/gnus/spam.el (gnus-summary-mode-map):
* lisp/gnus/gnus-topic.el (gnus-topic-mode-map):
* lisp/gnus/gnus-sum.el (gnus-summary-mode-map):
* lisp/gnus/gnus-srvr.el (gnus-server-mode-map):
(gnus-server-mode-map):
(gnus-browse-mode-map):
* lisp/gnus/gnus-score.el (gnus-summary-score-map):
* lisp/gnus/gnus-draft.el (gnus-draft-mode-map):
* lisp/gnus/gnus-agent.el (gnus-agent-group-mode-map):
(gnus-agent-summary-mode-map):
(gnus-agent-server-mode-map):
(gnus-category-mode-map): Convert from `gnus-define-keys' to
`define-keymap'.
* lisp/gnus/gnus.el: Define more commands.
Diffstat (limited to 'lisp/gnus/spam.el')
| -rw-r--r-- | lisp/gnus/spam.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index d00f0a60b66..cfef69f1031 100644 --- a/lisp/gnus/spam.el +++ b/lisp/gnus/spam.el @@ -663,13 +663,13 @@ order for SpamAssassin to recognize the new registered spam." ;;; Key bindings for spam control. -(gnus-define-keys gnus-summary-mode-map - "St" spam-generic-score - "Sx" gnus-summary-mark-as-spam - "Mst" spam-generic-score - "Msx" gnus-summary-mark-as-spam - "\M-d" gnus-summary-mark-as-spam - "$" gnus-summary-mark-as-spam) +(define-keymap :keymap gnus-summary-mode-map + "St" #'spam-generic-score + "Sx" #'gnus-summary-mark-as-spam + "Mst" #'spam-generic-score + "Msx" #'gnus-summary-mark-as-spam + "\M-d" #'gnus-summary-mark-as-spam + "$" #'gnus-summary-mark-as-spam) (defvar spam-cache-lookups t "Whether spam.el will try to cache lookups using `spam-caches'.") |