;;; myrmail-20-3-compat.el  - some 20.3 functions required in myrmail.el
;;;             by T.A. Gonsalves, 8-Sep-99
;;;
;;;  Provides 'myrmail-20-3-compat

;;; from 20.3/lisp/simple.el
(defun rfc822-goto-eoh ()
  ;; Go to header delimiter line in a mail message, following RFC822 rules
  (goto-char (point-min))
  (while (looking-at "^[^: \n]+:\\|^[ \t]")
    (forward-line 1))
  (point))

;;; from 20.3/lisp/mail/sendmail.el
(defun mail-header-end ()
  "Return the buffer location of the end of headers, as a number."
  (save-restriction
    (widen)
    (save-excursion
      (rfc822-goto-eoh)
      (point))))

(defun mail-text-start ()
  "Return the buffer location of the start of text, as a number."
  (save-restriction
    (widen)
    (save-excursion
      (rfc822-goto-eoh)
      (forward-line 1)
      (point))))

(provide 'myrmail-20-3-compat)