Mercurial > emacs
changeset 18275:e3b0443b4bbb
Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Jun 1997 02:29:54 +0000 |
| parents | 1614755e9b28 |
| children | 3835d79f8978 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Tue Jun 17 00:08:51 1997 +0000 +++ b/lisp/mail/sendmail.el Tue Jun 17 02:29:54 1997 +0000 @@ -357,7 +357,9 @@ (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 (< (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)