Mercurial > emacs
diff lisp/mail/feedmail.el @ 26778:6dc236826c61
(feedmail-find-eoh): Take
feedmail-queue-alternative-mail-header-separator into account.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 09 Dec 1999 15:15:54 +0000 |
parents | b9c1f9b1dac9 |
children | 82e71ffbac94 |
line wrap: on
line diff
--- a/lisp/mail/feedmail.el Thu Dec 09 13:03:41 1999 +0000 +++ b/lisp/mail/feedmail.el Thu Dec 09 15:15:54 1999 +0000 @@ -2651,10 +2651,19 @@ "Internal; finds the end of message header fields, returns mark just before it" (save-excursion (goto-char (point-min)) - (if (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n") nil noerror) - (progn - (forward-line -1) - (point-marker))))) + (when (or (re-search-forward (concat "^" + (regexp-quote mail-header-separator) + "\n") + nil noerror) + (and feedmail-queue-alternative-mail-header-separator + (re-search-forward + (concat "^" + (regexp-quote + feedmail-queue-alternative-mail-header-separator) + "\n") + nil noerror))) + (forward-line -1) + (point-marker)))) (provide 'feedmail) ;;; feedmail.el ends here