changeset 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 bdcf3193d59a
children 2a78c861578f
files lisp/mail/feedmail.el
diffstat 1 files changed, 13 insertions(+), 4 deletions(-) [+]
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