Function: gnus-sorted-intersection

gnus-sorted-intersection is an autoloaded and byte-compiled function defined in gnus-range.el.gz.

Signature

(gnus-sorted-intersection LIST1 LIST2)

Documentation

Return intersection of LIST1 and LIST2.

LIST1 and LIST2 have to be sorted over <.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-range.el.gz
;;;###autoload
(defun gnus-sorted-intersection (list1 list2)
  "Return intersection of LIST1 and LIST2.
LIST1 and LIST2 have to be sorted over <."
  (let (out)
    (while (and list1 list2)
      (cond ((= (car list1) (car list2))
	     (setq out (cons (car list1) out)
		   list1 (cdr list1)
		   list2 (cdr list2)))
	    ((< (car list1) (car list2))
	     (setq list1 (cdr list1)))
	    (t
	     (setq list2 (cdr list2)))))
    (nreverse out)))