(if (< (point)
(save-excursion
(goto-char (point-min))
- (if (search-forward (concat "^" mail-header-separator "$") nil t)
+ (if (re-search-forward
+ (concat "^" (regexp-quote mail-header-separator) "$")
+ nil t)
(point)
0)))
(let ((old-line-start (save-excursion (beginning-of-line) (point))))
(if (< (point)
(save-excursion
(goto-char (point-min))
- (if (search-forward (concat "^" mail-header-separator "$") nil t)
+ (if (re-search-forward
+ (concat "^" (regexp-quote mail-header-separator) "$")
+ nil t)
(point)
0)))
(let (beg end fieldname)