mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(feedmail-find-eoh): Take

Browse source 
feedmail-queue-alternative-mail-header-separator into account.
This commit is contained in:
Gerd Moellmann 1999-12-09 15:15:54 +00:00
parent 3dac25a972
commit 2771a002ef
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/mail/feedmail.el
View file

@ -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