diff options
| author | dickmao <none> | 2021-07-29 13:33:08 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-29 13:33:58 +0200 |
| commit | 314474e2d5f16f609f38c067241280c85955c283 (patch) | |
| tree | 582a4086622a45d25a9ec09de69adac24ae34c27 /lisp/gnus/gnus-group.el | |
| parent | 69398a4da0076f8b2b3045dbd80d63b7d694596e (diff) | |
| download | emacs-314474e2d5f16f609f38c067241280c85955c283.tar.gz emacs-314474e2d5f16f609f38c067241280c85955c283.tar.bz2 emacs-314474e2d5f16f609f38c067241280c85955c283.zip | |
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).
Diffstat (limited to 'lisp/gnus/gnus-group.el')
| -rw-r--r-- | lisp/gnus/gnus-group.el | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index ec18b3f4648..6202567344f 100644 --- 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) |