diff options
| author | Richard M. Stallman | 1997-06-17 02:29:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-17 02:29:54 +0000 |
| commit | b3e13f5d78fbb9c4986d52ad814853a8a34828db (patch) | |
| tree | d76a64d8e3fab4202973fd973c961f5e7a167a3c | |
| parent | 1603f29ab96c03b70818de0bb0922c2259e56764 (diff) | |
| download | emacs-b3e13f5d78fbb9c4986d52ad814853a8a34828db.tar.gz emacs-b3e13f5d78fbb9c4986d52ad814853a8a34828db.zip | |
Fix previous change.
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files 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." | |||
| 357 | (if (< (point) | 357 | (if (< (point) |
| 358 | (save-excursion | 358 | (save-excursion |
| 359 | (goto-char (point-min)) | 359 | (goto-char (point-min)) |
| 360 | (if (search-forward (concat "^" mail-header-separator "$") nil t) | 360 | (if (re-search-forward |
| 361 | (concat "^" (regexp-quote mail-header-separator) "$") | ||
| 362 | nil t) | ||
| 361 | (point) | 363 | (point) |
| 362 | 0))) | 364 | 0))) |
| 363 | (let ((old-line-start (save-excursion (beginning-of-line) (point)))) | 365 | (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." | |||
| 375 | (if (< (point) | 377 | (if (< (point) |
| 376 | (save-excursion | 378 | (save-excursion |
| 377 | (goto-char (point-min)) | 379 | (goto-char (point-min)) |
| 378 | (if (search-forward (concat "^" mail-header-separator "$") nil t) | 380 | (if (re-search-forward |
| 381 | (concat "^" (regexp-quote mail-header-separator) "$") | ||
| 382 | nil t) | ||
| 379 | (point) | 383 | (point) |
| 380 | 0))) | 384 | 0))) |
| 381 | (let (beg end fieldname) | 385 | (let (beg end fieldname) |