[Emacs-diffs] Changes to emacs/lisp/gnus/nnoo.el

[Miles Bader]

Index: emacs/lisp/gnus/nnoo.el
diff -u emacs/lisp/gnus/nnoo.el:1.11 emacs/lisp/gnus/nnoo.el:1.12
--- emacs/lisp/gnus/nnoo.el:1.11        Sun Feb  5 13:56:44 2006
+++ emacs/lisp/gnus/nnoo.el     Fri Feb 17 00:24:04 2006
@@ -61,12 +61,16 @@
 
 (defmacro nnoo-declare (backend &rest parents)
   `(eval-and-compile
-     (push (list ',backend
-                (mapcar (lambda (p) (list p)) ',parents)
-                nil nil)
-          nnoo-definition-alist)
-     (push (list ',backend "*internal-non-initialized-backend*")
-          nnoo-state-alist)))
+     (if (assq ',backend nnoo-definition-alist)
+        (setcar (cdr (assq ',backend nnoo-definition-alist))
+                (mapcar 'list ',parents))
+       (push (list ',backend
+                  (mapcar 'list ',parents)
+                  nil nil)
+            nnoo-definition-alist))
+     (unless (assq ',backend nnoo-state-alist)
+       (push (list ',backend "*internal-non-initialized-backend*")
+            nnoo-state-alist))))
 (put 'nnoo-declare 'lisp-indent-function 1)
 
 (defun nnoo-parents (backend)