Function: mm-find-part-by-type

mm-find-part-by-type is a byte-compiled function defined in mm-decode.el.gz.

Signature

(mm-find-part-by-type HANDLES TYPE &optional NOTP RECURSIVE)

Documentation

Search in HANDLES for part with TYPE.

If NOTP, returns first non-matching part. If RECURSIVE, search recursively.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-decode.el.gz
(defun mm-find-part-by-type (handles type &optional notp recursive)
  "Search in HANDLES for part with TYPE.
If NOTP, returns first non-matching part.
If RECURSIVE, search recursively."
  (let (handle)
    (while handles
      (if (and recursive (stringp (caar handles)))
	  (if (setq handle (mm-find-part-by-type (cdar handles) type
						 notp recursive))
	      (setq handles nil))
	(if (if notp
		(not (equal (mm-handle-media-type (car handles)) type))
	      (equal (mm-handle-media-type (car handles)) type))
	    (setq handle (car handles)
		  handles nil)))
      (setq handles (cdr handles)))
    handle))