Follow-up toggle-subscription name change

* doc/misc/gnus.texi (Subscription Commands): Refer to correct function.
* lisp/gnus/gnus-group.el (gnus-group-unsubscribe-current-group):
Make backwards-compatible.
(gnus-group-unsubscribe-group):
Make backwards-compatible (bug#49768).

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 6dca5b6955b4cc67c52b3ec11b9cbd461ad4f2b3..c46047ff77099562e8997c5914017009a70bc68c 100644 (file)
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -2318,10 +2318,10 @@ commands listed in @ref{Browse Foreign Server} at hand.
 @itemx u
 @kindex S t @r{(Group)}
 @kindex u @r{(Group)}
-@findex gnus-group-toggle-subscription
-@c @icon{gnus-group-toggle-subscription}
+@findex gnus-group-toggle-subscription-at-point
+@c @icon{gnus-group-toggle-subscription-at-point}
 Toggle subscription to group under point
-(@code{gnus-group-toggle-subscription}).
+(@code{gnus-group-toggle-subscription-at-point}).
 
 @item S s
 @itemx U

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index ec18b3f46481a244f49e184ca05a8ab8996fda4f..6202567344f177a6a8832cdca9a769bbf5e301c3 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -3864,9 +3864,20 @@ Uses the process/prefix convention."
   (interactive "P" gnus-group-mode)
   (gnus-group-set-subscription-at-point n 'subscribe))
 
-(define-obsolete-function-alias 'gnus-group-unsubscribe-current-group
+(defsubst gnus-group-unsubscribe-current-group (&optional n do-sub)
+  (if do-sub
+      (gnus-group-set-subscription-at-point n do-sub)
+    (gnus-group-toggle-subscription-at-point n)))
+
+(defsubst gnus-group-unsubscribe-group (group &optional level silent)
+  (if level
+      (gnus-group-set-subscription group level silent)
+    (gnus-group-toggle-subscription group silent)))
+
+(make-obsolete 'gnus-group-unsubscribe-current-group
   'gnus-group-toggle-subscription-at-point "28.1")
-(define-obsolete-function-alias 'gnus-group-unsubscribe-group
+
+(make-obsolete 'gnus-group-unsubscribe-group
   'gnus-group-toggle-subscription "28.1")
 
 (defun gnus-group-toggle-subscription-at-point (&optional n)