[sgnus-0.17] Slave Gnusii - gnus-slave-no-server

[sgnus-0.17] Slave Gnusii - gnus-slave-no-server

[Steven L. Baur]

I've just started working with slave gnusii, and there is definitely
an entry point missing.  This patch adds gnus-slave-no-server to allow
a slave Gnus to be brought up just for Mail.

A useful function for the future might be one that immediately
integrates the slave files into the master Gnus (similar to how M-g
works now).

Slave mode has some problems right now with respect to the dribble
file.  Why do slave Gnusii need to write to the master dribble file?
You may be O.K. with a slave 19.30 emacs, but a slave 19.13 XEmacs
definitely loses right now (for good reasons).

===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.7
diff -u -r1.7 ChangeLog
--- 1.7	1995/12/03 19:47:21
+++ ChangeLog	1995/12/03 19:47:49
@@ -1,3 +1,8 @@
+Sun Dec  3 11:44:08 1995  Steven L. Baur  <steve@miranova.com>
+
+	* gnus.el (gnus-slave-no-server): New Function.
+	(gnus-no-server): Add optional slave parameter.
+
 Sun Dec  3 04:19:33 1995  Jens Lautenbacher  <jtl@tkm.physik.uni-karlsruhe.de>
 
 	* gnus-topic.el (gnus-topic-mode-map): Using mouse-2 to hide/show
===================================================================
RCS file: RCS/gnus.el,v
retrieving revision 1.7
diff -u -r1.7 gnus.el
--- 1.7	1995/12/03 02:19:18
+++ gnus.el	1995/12/03 19:52:40
@@ -3704,9 +3704,14 @@
    (t
     (or level gnus-group-default-list-level gnus-level-subscribed))))
   
+;;;###autoload
+(defun gnus-slave-no-server (&optional arg)
+  "Read network news as a slave, without connecting to local server"
+  (interactive "P")
+  (gnus-no-server arg t))
 
 ;;;###autoload
-(defun gnus-no-server (&optional arg)
+(defun gnus-no-server (&optional arg slave)
   "Read network news.
 If ARG is a positive number, Gnus will use that as the
 startup level.  If ARG is nil, Gnus will be started at level 2. 
@@ -3716,7 +3721,7 @@
   (interactive "P")
   (make-local-variable 'gnus-group-use-permanent-levels)
   (setq gnus-group-use-permanent-levels t)
-  (gnus (or arg (1- gnus-level-default-subscribed)) t))
+  (gnus (or arg (1- gnus-level-default-subscribed)) t slave))
 
 ;;;###autoload
 (defun gnus-slave (&optional arg)

-- 
steve@miranova.com baur