Mercurial > emacs

comparison lisp/mail/feedmail.el @ 26778:6dc236826c61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 b9c1f9b1dac9
children 82e71ffbac94
comparison
equal deleted inserted replaced
26777:bdcf3193d59a 26778:6dc236826c61
2649 2649
2650 (defun feedmail-find-eoh (&optional noerror) 2650 (defun feedmail-find-eoh (&optional noerror)
2651 "Internal; finds the end of message header fields, returns mark just before it" 2651 "Internal; finds the end of message header fields, returns mark just before it"
2652 (save-excursion 2652 (save-excursion
2653 (goto-char (point-min)) 2653 (goto-char (point-min))
2654 (if (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n") nil noerror) 2654 (when (or (re-search-forward (concat "^"
2655 (progn 2655 (regexp-quote mail-header-separator)
2656 (forward-line -1) 2656 "\n")
2657 (point-marker))))) 2657 nil noerror)
2658 (and feedmail-queue-alternative-mail-header-separator
2659 (re-search-forward
2660 (concat "^"
2661 (regexp-quote
2662 feedmail-queue-alternative-mail-header-separator)
2663 "\n")
2664 nil noerror)))
2665 (forward-line -1)
2666 (point-marker))))
2658 2667
2659 (provide 'feedmail) 2668 (provide 'feedmail)
2660 ;;; feedmail.el ends here 2669 ;;; feedmail.el ends here