procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mh-e/mh-show.el (mh-junk-whitelist): Custom obsolescence message.

Browse source
This commit is contained in:
Stephen Gildea 2021-10-11 18:19:18 -07:00
parent cf1409db71
commit 5deb0ec14f
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/mh-e/mh-junk.el
View file

@ -110,8 +110,15 @@ message(s) as specified by the option `mh-junk-disposition'."
;;;###mh-autoload
(defun mh-junk-whitelist (range)
"Old name for `mh-junk-allowlist'; use \\[mh-junk-allowlist] instead."
(declare (obsolete mh-junk-allowlist "28.1"))
(interactive (list (mh-interactive-range "Allowlist")))
;; We do our own message here instead of using "declare obsolete"
;; in order to talk about keys instead of function names. Also, it
;; lets us bind "J w" to this without the Emacs 29 compiler complaining.
(when (not (get 'mh-junk-whitelist 'command-execute-obsolete-warned))
(message "%s is an obsolete key (as of 28.1); use %s instead"
(substitute-command-keys "\\[mh-junk-whitelist]")
(substitute-command-keys "\\[mh-junk-allowlist]"))
(put 'mh-junk-whitelist 'command-execute-obsolete-warned t))
(mh-junk-allowlist range))
;;;###mh-autoload