From: Stephen Gildea Date: Wed, 13 Oct 2021 01:29:30 +0000 (-0700) Subject: MH-E: restore message about obsolete key binding X-Git-Tag: emacs-29.0.90~3671^2~586 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dec613d1e727b94fc3b672134d3a75063bd6b618;p=emacs.git 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. --- 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