From 2771a002ef28d481e7e4e6cc95db01ffdca7ce37 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 9 Dec 1999 15:15:54 +0000 Subject: [PATCH] (feedmail-find-eoh): Take feedmail-queue-alternative-mail-header-separator into account. --- lisp/mail/feedmail.el | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index e2c1e7e0480..6ddb0b5e908 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -2651,10 +2651,19 @@ been weeded out." "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 -- 2.11.4.GIT