From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 17 Jun 1997 02:29:54 +0000 (+0000)
Subject: Fix previous change.
X-Git-Tag: emacs-20.1~1671
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3e13f5d78fbb9c4986d52ad814853a8a34828db;p=emacs.git

Fix previous change.
---

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)