Function: gnus-topic-parent-topic

gnus-topic-parent-topic is a byte-compiled function defined in gnus-topic.el.gz.

Signature

(gnus-topic-parent-topic TOPIC &optional TOPOLOGY)

Documentation

Return the parent of TOPIC.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-topic.el.gz
(defun gnus-topic-parent-topic (topic &optional topology)
  "Return the parent of TOPIC."
  (unless topology
    (setq topology gnus-topic-topology))
  (let ((parent (car (pop topology)))
	result found)
    (while (and topology
		(not (setq found (equal (caaar topology) topic)))
		(not (setq result (gnus-topic-parent-topic
				   topic (car topology)))))
      (setq topology (cdr topology)))
    (or result (and found parent))))