From b3e13f5d78fbb9c4986d52ad814853a8a34828db Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 17 Jun 1997 02:29:54 +0000 Subject: [PATCH] Fix previous change. --- lisp/mail/sendmail.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 272ea55796a..adb34a9c4d1 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -357,7 +357,9 @@ If within the headers, this makes the new lines into continuation lines." (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)))) @@ -375,7 +377,9 @@ If within the headers, this makes the new lines into continuation lines." (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) -- 2.39.5