Function: feedmail-find-eoh

feedmail-find-eoh is a byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-find-eoh &optional NOERROR)

Documentation

Internal; find the end of message header fields, return mark just before it.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
(defun feedmail-find-eoh (&optional noerror)
  "Internal; find the end of message header fields, return mark just before it."
  ;; all this funny business with line endings is to account for CRLF
  ;; weirdness that I don't think I'll ever figure out
  (feedmail-say-debug ">in-> feedmail-find-eoh %s" noerror)
  (let ((mhs mail-header-separator)
		(alt-mhs feedmail-queue-alternative-mail-header-separator)
		r-mhs r-alt-mhs)
	(setq r-mhs (concat "^" (regexp-quote mhs) "$"))
	(setq r-alt-mhs (concat "^" (regexp-quote (or alt-mhs "")) "$"))
  (save-excursion
    (goto-char (point-min))
    (if (or (re-search-forward r-mhs nil t)
	      (and alt-mhs (re-search-forward r-alt-mhs nil t)))
	(progn
	  (beginning-of-line)
	  (point-marker))
      (if noerror
	  nil
	(error "FQM: Can't find message-header-separator or alternate"))))))