Function: nnfolder-parse-head

nnfolder-parse-head is a byte-compiled function defined in nnfolder.el.gz.

Signature

(nnfolder-parse-head &optional NUMBER B E)

Documentation

Parse the head of the current buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnfolder.el.gz
(defun nnfolder-parse-head (&optional number b e)
  "Parse the head of the current buffer."
  (let ((buf (current-buffer))
	chars)
    (save-excursion
      (unless b
	(setq b (if (nnmail-search-unix-mail-delim-backward)
		    (point) (point-min)))
	(forward-line 1)
	(setq e (if (nnmail-search-unix-mail-delim)
		    (point) (point-max))))
      (setq chars (- e b))
      (unless (zerop chars)
	(goto-char b)
	(if (search-forward "\n\n" e t) (setq e (1- (point)))))
      (with-temp-buffer
	(insert-buffer-substring buf b e)
	(let ((headers (nnheader-parse-head t)))
	  (setf (mail-header-chars  headers) chars)
	  (setf (mail-header-number headers) number)
	  headers)))))