Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make message-mark-active-p obsolete in favor of mark-active

Browse source 
* lisp/gnus/message.el (message-mark-active-p): Make obsolete in
favor of 'mark-active'.  Update callers.
This commit is contained in:
Stefan Kangas 2022-08-15 00:32:46 +02:00
parent 6137ebd5a4
commit 0a8e88fd83
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/gnus/message.el
View file

@ -2086,6 +2086,7 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
(defun message-mark-active-p ()
"Non-nil means the mark and region are currently active in this buffer."
(declare (obsolete mark-active "29.1"))
mark-active)
(defun message-unquote-tokens (elems)
@ -2953,12 +2954,12 @@ Consider adding this function to `message-header-setup-hook'"
["Fill Yanked Message" message-fill-yanked-message t]
["Insert Signature" message-insert-signature t]
["Caesar (rot13) Message" message-caesar-buffer-body t]
["Caesar (rot13) Region" message-caesar-region (message-mark-active-p)]
["Caesar (rot13) Region" message-caesar-region mark-active]
["Elide Region" message-elide-region
:active (message-mark-active-p)
:active mark-active
:help "Replace text in region with an ellipsis"]
["Delete Outside Region" message-delete-not-region
:active (message-mark-active-p)
:active mark-active
:help "Delete all quoted text outside region"]
["Kill To Signature" message-kill-to-signature t]
["Newline and Reformat" message-newline-and-reformat t]
@ -2966,7 +2967,7 @@ Consider adding this function to `message-header-setup-hook'"
["Spellcheck" ispell-message :help "Spellcheck this message"]
"----"
["Insert Region Marked" message-mark-inserted-region
:active (message-mark-active-p) :help "Mark region with enclosing tags"]
:active mark-active :help "Mark region with enclosing tags"]
["Insert File Marked..." message-mark-insert-file
:help "Insert file at point marked with enclosing tags"]
["Attach File..." mml-attach-file t]

3
lisp/gnus/mml.el
View file

@ -35,7 +35,6 @@
(declare-function gnus-setup-posting-charset "gnus-msg" (group))
(autoload 'gnus-completing-read "gnus-util")
(autoload 'message-fetch-field "message")
(autoload 'message-mark-active-p "message")
(autoload 'message-info "message")
(autoload 'fill-flowed-encode "flow-fill")
(autoload 'message-posting-charset "message")
@ -1236,7 +1235,7 @@ If HANDLES is non-nil, use it instead reparsing the buffer."
;;
;;["Narrow" mml-narrow-to-part t]
["Quote MML in region" mml-quote-region
:active (message-mark-active-p)
:active mark-active
:help "Quote MML tags in region"]
["Validate MML" mml-validate t]
["Preview" mml-preview t]