Function: gnus-parent-headers

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

Signature

(gnus-parent-headers IN-HEADERS &optional GENERATION)

Documentation

Return the headers of the GENERATIONth parent of HEADERS.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-sum.el.gz
(defun gnus-parent-headers (in-headers &optional generation)
  "Return the headers of the GENERATIONth parent of HEADERS."
  (unless generation
    (setq generation 1))
  (let ((parent t)
	(headers in-headers)
	references)
    (while (and parent
		(not (zerop generation))
		(setq references (mail-header-references headers)))
      (setq headers (if (and references
			     (setq parent (gnus-parent-id references)))
			(car (gnus-id-to-thread parent))
		      nil))
      (cl-decf generation))
    (and (not (eq headers in-headers))
	 headers)))