diff options
| author | Richard M. Stallman | 1994-02-17 19:04:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-17 19:04:07 +0000 |
| commit | 5a85300527c0f1dce554683201de59acbcdfacde (patch) | |
| tree | 2fa3538d3f9fdd94931f3af79233ef315c93d2ac | |
| parent | 14c90d01c58a8c5e25cc0ea9830cf60695246850 (diff) | |
| download | emacs-5a85300527c0f1dce554683201de59acbcdfacde.tar.gz emacs-5a85300527c0f1dce554683201de59acbcdfacde.zip | |
(mail-mailer-swallows-blank-line): Fix regexp typo.
Check for apparent header line as well as for leading whitespace.
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 4325ce4950f..e0fa000fef4 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -137,9 +137,9 @@ so you can edit or delete these lines.") | |||
| 137 | (insert-file-contents "/etc/sendmail.cf") | 137 | (insert-file-contents "/etc/sendmail.cf") |
| 138 | (goto-char (point-min)) | 138 | (goto-char (point-min)) |
| 139 | (let ((case-fold-search nil)) | 139 | (let ((case-fold-search nil)) |
| 140 | (re-search-forward "^OR\>" nil t))) | 140 | (re-search-forward "^OR\\>" nil t))) |
| 141 | (kill-buffer buffer)))) | 141 | (kill-buffer buffer)))) |
| 142 | '(looking-at " \t")) | 142 | '(looking-at " \t\\|[-a-zA-Z]+:")) |
| 143 | "Set this non-nil if the system's mailer runs the header and body together. | 143 | "Set this non-nil if the system's mailer runs the header and body together. |
| 144 | \(This problem exists on Sunos 4 when sendmail is run in remote mode.) | 144 | \(This problem exists on Sunos 4 when sendmail is run in remote mode.) |
| 145 | The value should be an expression to test whether the problem will | 145 | The value should be an expression to test whether the problem will |