Function: gnus-parent-id

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

Signature

(gnus-parent-id REFERENCES &optional N)

Documentation

Return the last Message-ID in REFERENCES.

If N, return the Nth ancestor instead.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defsubst gnus-parent-id (references &optional n)
  "Return the last Message-ID in REFERENCES.
If N, return the Nth ancestor instead."
  (when (and references
	     (not (zerop (length references))))
    (if n
	(let ((ids (inline (gnus-split-references references))))
	  (while (nthcdr n ids)
	    (setq ids (cdr ids)))
	  (car ids))
      (let ((references (mail-header-remove-comments references)))
	(when (string-match "\\(<[^<]+>\\)[ \t]*\\'" references)
	  (match-string 1 references))))))