[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0a8e88fd83: Make message-mark-active-p obsolete in favor of mark-
From: |
Stefan Kangas |
Subject: |
master 0a8e88fd83: Make message-mark-active-p obsolete in favor of mark-active |
Date: |
Sun, 14 Aug 2022 18:33:38 -0400 (EDT) |
branch: master
commit 0a8e88fd83db5398d36064a7f87cff5b57da7284
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Make message-mark-active-p obsolete in favor of mark-active
* lisp/gnus/message.el (message-mark-active-p): Make obsolete in
favor of 'mark-active'. Update callers.
---
lisp/gnus/message.el | 9 +++++----
lisp/gnus/mml.el | 3 +--
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 00a27fb5f5..8a3967f346 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -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]
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 5cd57d2f80..e8291cfe6f 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -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]
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0a8e88fd83: Make message-mark-active-p obsolete in favor of mark-active,
Stefan Kangas <=