Function: nnoo-execute

nnoo-execute is a byte-compiled function defined in nnoo.el.gz.

Signature

(nnoo-execute BACKEND FUNCTION &rest ARGS)

Documentation

Execute FUNCTION on behalf of BACKEND.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnoo.el.gz
(defun nnoo-execute (backend function &rest args)
  "Execute FUNCTION on behalf of BACKEND."
  (let ((pbackend (nnoo-backend function))
	(nnoo-parent-backend backend))
    (nnoo-change-server pbackend
			(nnoo-current-server backend)
			(cdr (assq pbackend (nnoo-parents backend))))
    (prog1
	(apply function args)
      ;; Copy the changed variables back into the child.
      (let ((vars (cdr (assq pbackend (nnoo-parents backend)))))
	(while vars
	  (set (cadar vars) (symbol-value (caar vars)))
	  (setq vars (cdr vars)))))))