master dec613d: MH-E: restore message about obsolete key binding

[Stephen Gildea]

branch: master
commit dec613d1e727b94fc3b672134d3a75063bd6b618
Author: Stephen Gildea <stepheng+emacs@gildea.com>
Commit: Stephen Gildea <stepheng+emacs@gildea.com>

    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 c423d22..e6c2957 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 4b98d6c..5241796 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