Commit 314474e2 authored by dickmao's avatar dickmao Committed by Lars Ingebrigtsen
Browse files

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).
parent 69398a4d
Pipeline #11638 failed with stages
in 1 minute and 32 seconds
......@@ -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
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment