*** empty log message ***

[gnus] / lisp / nnoo.el

diff --git a/lisp/nnoo.el b/lisp/nnoo.el
index a0f5087..1bfda6d 100644 (file)
--- a/lisp/nnoo.el
+++ b/lisp/nnoo.el
@@ -1,5 +1,5 @@
 ;;; nnoo.el --- OO Gnus Backends
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
 ;; Keywords: news
@@ -61,7 +61,9 @@
      (push (list ',backend 
                 (mapcar (lambda (p) (list p)) ',parents)
                 nil nil)
-          nnoo-definition-alist)))
+          nnoo-definition-alist)
+     (push (list ',backend "*internal-non-initialized-backend*")
+          nnoo-state-alist)))
 (put 'nnoo-declare 'lisp-indent-function 1)
 
 (defun nnoo-parents (backend)
@@ -155,7 +157,8 @@
   (let* ((bstate (cdr (assq backend nnoo-state-alist)))
         (current (car bstate))
         (parents (nnoo-parents backend))
-        state)
+        (bvariables (nnoo-variables backend))
+        state def)
     (unless bstate
       (push (setq bstate (list backend nil))
            nnoo-state-alist)
@@ -170,9 +173,12 @@
        (pop state))
       (setcar bstate server)
       (unless (cdr (assoc server (cddr bstate)))
-       (while defs
-         (set (caar defs) (cadar defs))
-         (pop defs)))
+       (while (setq def (pop defs))
+         (unless (assq (car def) bvariables)
+           (nconc bvariables
+                  (list (cons (car def) (and (boundp (car def))
+                                             (symbol-value (car def)))))))
+         (set (car def) (cadr def))))
       (while parents
        (nnoo-change-server 
         (caar parents) server 
@@ -186,6 +192,14 @@
        (defs (nnoo-variables backend)))
     ;; Remove the old definition.
     (setcdr (cdr bstate) (delq (assoc current (cddr bstate)) (cddr bstate)))
+    ;; If this is the first time we push the server (i. e., this is 
+    ;; the nil server), then we update the default values of
+    ;; all the variables to reflect the current values.
+    (when (equal current "*internal-non-initialized-backend*")
+      (let ((defaults (nnoo-variables backend))
+           def)
+       (while (setq def (pop defaults))
+         (setcdr def (symbol-value (car def))))))
     (let (state)
       (while defs
        (push (cons (caar defs) (symbol-value (caar defs)))
@@ -251,7 +265,7 @@ All functions will return nil and report an error."
 (defun nnoo-define-skeleton-1 (backend)
   (let ((functions '(retrieve-headers
                     request-close request-article
-                    open-group request-group close-group
+                    request-group close-group
                     request-list request-post request-list-newsgroups))
        function fun)
     (while (setq function (pop functions))