]> git.eshelyaron.com Git - emacs.git/commitdiff
Make old aliases to gnus-child* commands work before Gnus is loaded
authorLars Ingebrigtsen <larsi@gnus.org>
Fri, 17 Jul 2020 01:52:35 +0000 (03:52 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Fri, 17 Jul 2020 01:52:35 +0000 (03:52 +0200)
* 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).

lisp/gnus/gnus-agent.el
lisp/gnus/gnus.el

index a617429de13c8b8d94154040f0cfc2381ac99303..88873f47bd5ee4392a96e0fd31de1dfaa73f9cca 100644 (file)
@@ -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")
 
 
 
index f40ce0c7926a6dd9bde0658420bfe0c393f818a7..69f2bb27993e6c11ab6e7bb230aaa5e7e045d578 100644 (file)
@@ -4040,8 +4040,11 @@ Allow completion over sensible values."
   (gnus-no-server arg t))
 
 ;;;###autoload
-(define-obsolete-function-alias 'gnus-slave-no-server #'gnus-child-no-server
-  "28.1")
+(defun gnus-slave-no-server (&optional arg)
+  "Read network news as a child, without connecting to the local server."
+  (interactive "P")
+  (gnus-no-server arg t))
+(make-obsolete 'gnus-slave-no-server 'gnus-child-no-server "28.1")
 
 ;;;###autoload
 (defun gnus-no-server (&optional arg child)
@@ -4062,8 +4065,11 @@ server."
   (gnus arg nil 'child))
 
 ;;;###autoload
-(define-obsolete-function-alias 'gnus-slave #'gnus-child "28.1")
-
+(defun gnus-slave (&optional arg)
+  "Read news as a child."
+  (interactive "P")
+  (gnus arg nil 'child))
+(make-obsolete 'gnus-slave 'gnus-child "28.1")
 
 (defun gnus-delete-gnus-frame ()
   "Delete gnus frame unless it is the only one.