Commit 2771a002 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(feedmail-find-eoh): Take

feedmail-queue-alternative-mail-header-separator into account.
parent 3dac25a9
......@@ -2651,10 +2651,19 @@ been weeded out."
"Internal; finds the end of message header fields, returns mark just before it"
(goto-char (point-min))
(if (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n") nil noerror)
(forward-line -1)
(when (or (re-search-forward (concat "^"
(regexp-quote mail-header-separator)
nil noerror)
(and feedmail-queue-alternative-mail-header-separator
(concat "^"
nil noerror)))
(forward-line -1)
(provide 'feedmail)
;;; feedmail.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment