From dec613d1e727b94fc3b672134d3a75063bd6b618 Mon Sep 17 00:00:00 2001 From: Stephen Gildea Date: Tue, 12 Oct 2021 18:29:30 -0700 Subject: [PATCH] MH-E: restore message about obsolete key binding * lisp/mh-e/mh-show.el: * lisp/mh-e/mh-folder.el: Restore "obsolete key" message for "J w" that was lost in the conversion from gnus-define-keys to define-keymap. --- lisp/mh-e/mh-folder.el | 2 +- lisp/mh-e/mh-show.el | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el index c423d22e892..e6c295764b7 100644 --- a/lisp/mh-e/mh-folder.el +++ b/lisp/mh-e/mh-folder.el @@ -278,7 +278,7 @@ annotation.") "?" #'mh-prefix-help "a" #'mh-junk-allowlist "b" #'mh-junk-blocklist - "w" #'mh-junk-allowlist) + "w" #'mh-junk-whitelist) "P" (define-keymap :prefix 'mh-ps-print-map "?" #'mh-prefix-help diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el index 4b98d6c4879..524179648dc 100644 --- a/lisp/mh-e/mh-show.el +++ b/lisp/mh-e/mh-show.el @@ -462,8 +462,7 @@ still visible.\n") (mh-defun-show-buffer mh-show-toggle-tick mh-toggle-tick) (mh-defun-show-buffer mh-show-narrow-to-tick mh-narrow-to-tick) (mh-defun-show-buffer mh-show-junk-allowlist mh-junk-allowlist) -(mh-defun-show-buffer mh-show-junk-whitelist mh-junk-allowlist) -(make-obsolete 'mh-show-junk-whitelist 'mh-show-junk-allowlist "28.1") +(mh-defun-show-buffer mh-show-junk-whitelist mh-junk-whitelist) (mh-defun-show-buffer mh-show-junk-blocklist mh-junk-blocklist) (mh-defun-show-buffer mh-show-index-new-messages mh-index-new-messages) (mh-defun-show-buffer mh-show-index-ticked-messages mh-index-ticked-messages) @@ -635,7 +634,7 @@ still visible.\n") "?" #'mh-prefix-help "a" #'mh-show-junk-allowlist "b" #'mh-show-junk-blocklist - "w" #'mh-show-junk-allowlist) + "w" #'mh-show-junk-whitelist) "P" (define-keymap :prefix 'mh-show-ps-print-map "?" #'mh-prefix-help -- 2.39.2