Function: imap-body-lines

imap-body-lines is a byte-compiled function defined in imap.el.gz.

Signature

(imap-body-lines BODY)

Documentation

Return number of lines in article by looking at the mime bodystructure BODY.

Source Code

;; Defined in /usr/src/emacs/lisp/net/imap.el.gz
(defun imap-body-lines (body)
  "Return number of lines in article by looking at the mime bodystructure BODY."
  (if (listp body)
      (if (stringp (car body))
	  (cond ((and (string= (upcase (car body)) "TEXT")
		      (numberp (nth 7 body)))
		 (nth 7 body))
		((and (string= (upcase (car body)) "MESSAGE")
		      (numberp (nth 9 body)))
		 (nth 9 body))
		(t 0))
	(apply #'+ (mapcar #'imap-body-lines body)))
    0))