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 c423d22e8921c49a56a78a783897380756b645df..e6c295764b74528c63c22051ec217f64cc39ef05 100644 (file)
--- 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 4b98d6c4879fab2a8acd3a7bae9dc0b85bd8c01c..524179648dc6438a6be3e3468bdbd56baf51c9c6 100644 (file)
--- 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