# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 944752554 0
# Node ID 6dc236826c618d2ab4a674a183da2b8c24d1f983
# Parent  bdcf3193d59a0794f23f4a20c331d91764dd42d5
(feedmail-find-eoh): Take
feedmail-queue-alternative-mail-header-separator into account.

diff -r bdcf3193d59a -r 6dc236826c61 lisp/mail/feedmail.el
--- 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