diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-07-17 03:52:35 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-07-17 03:52:35 +0200 |
| commit | ef4c92bc0cebf36a21ab2074931b64701afc18e4 (patch) | |
| tree | 934e74f9446f69e0c7ea667cb80505fe39ddb02f /lisp/gnus/gnus-agent.el | |
| parent | 3cf9176d9d0ec77ea9998833f97b3646129cce7b (diff) | |
| download | emacs-ef4c92bc0cebf36a21ab2074931b64701afc18e4.tar.gz | |
Make old aliases to gnus-child* commands work before Gnus is loaded
* lisp/gnus/gnus.el (gnus-slave-no-server, gnus-slave): Mark as
obsolete in a way that still lets them be used as interactive
commands before Gnus is loaded.
* lisp/gnus/gnus-agent.el (gnus-slave-unplugged): Ditto (bug#42401).
Diffstat (limited to 'lisp/gnus/gnus-agent.el')
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index a617429de13..88873f47bd5 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -610,8 +610,12 @@ manipulated as follows: (gnus arg nil 'child)) ;;;###autoload -(define-obsolete-function-alias 'gnus-slave-unplugged #'gnus-child-unplugged - "28.1") +(defun gnus-slave-unplugged (&optional arg) + "Read news as a child unplugged." + (interactive "P") + (setq gnus-plugged nil) + (gnus arg nil 'child)) +(make-obsolete 'gnus-slave-unplugged 'gnus-child-unplugged "28.1") |