Synch with Gnus.

[elisp/gnus.git-] / lisp / nnoo.el

diff --git a/lisp/nnoo.el b/lisp/nnoo.el
index 2543494..fc9adb8 100644 (file)
--- a/lisp/nnoo.el
+++ b/lisp/nnoo.el
@@ -25,7 +25,7 @@
 
 ;;; Code:
 
-(require 'cl)
+(eval-when-compile (require 'cl))
 (require 'nnheader)
 
 (defvar nnoo-definition-alist nil)
@@ -302,6 +302,20 @@ All functions will return nil and report an error."
                   (&rest args)
                 (nnheader-report ',backend ,(format "%s-%s not implemented"
                                                     backend function))))))))
+
+(defun nnoo-set (server &rest args)
+  (let ((parents (nnoo-parents (car server)))
+       (nnoo-parent-backend (car server)))
+    (while parents
+      (nnoo-change-server (caar parents)
+                         (cadr server)
+                         (cdar parents))
+      (pop parents)))
+  (nnoo-change-server (car server)
+                     (cadr server) (cddr server))
+  (while args
+    (set (pop args) (pop args))))
+
 (provide 'nnoo)
 
 ;;; nnoo.el ends here.