Function: pgg-parse-packets

pgg-parse-packets is a byte-compiled function defined in pgg-parse.el.gz.

Signature

(pgg-parse-packets &optional HEADER-PARSER BODY-PARSER)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pgg-parse.el.gz
(defun pgg-parse-packets (&optional header-parser body-parser)
  (let ((header-parser
	 (or header-parser
	     (function pgg-parse-packet-header)))
	(body-parser
	 (or body-parser
	     (function pgg-parse-packet)))
	result ptag)
    (while (> (point-max) (1+ (point)))
      (setq ptag (funcall header-parser))
      (pgg-skip-header ptag)
      (push (cons (car ptag)
		  (save-excursion
		    (funcall body-parser ptag)))
	    result)
      (if (zerop (nth 1 ptag))
	  (goto-char (point-max))
	(forward-char (nth 1 ptag))))
    result))