diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-12-09 15:15:54 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-12-09 15:15:54 +0000 |
| commit | 2771a002ef28d481e7e4e6cc95db01ffdca7ce37 (patch) | |
| tree | 64a7f10f2e02763842b8618e9d098d0fb999d8c1 /lisp/mail/feedmail.el | |
| parent | 3dac25a97282fd026de4abe51496f752da1929fd (diff) | |
| download | emacs-2771a002ef28d481e7e4e6cc95db01ffdca7ce37.tar.gz | |
(feedmail-find-eoh): Take
feedmail-queue-alternative-mail-header-separator into account.
Diffstat (limited to 'lisp/mail/feedmail.el')
| -rw-r--r-- | lisp/mail/feedmail.el | 17 |
1 files 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 |